Exercice nombres premiers

Calcul de la Somme des Carrés des Nombres Premiers

1. Création de la Fonction de Test de Nombre Premier :

   • Écrivez une fonction est_premier qui prend un nombre entier en entrée et renvoie TRUE s'il est premier, sinon FALSE.

2. Génération des Nombres Premiers :

   • Écrivez une fonction generer_premiers qui prend en entrée un nombre entier positif n et renvoie une liste des n premiers nombres premiers.

3. Calcul de la Somme des Carrés :

   • Écrivez une fonction somme_carres_premiers qui prend en entrée un nombre entier n et calcule la somme des carrés des n premiers nombres premiers.

4. Exemple d'Utilisation :

   • Utilisez vos fonctions pour calculer la somme des carrés des 5 premiers nombres premiers.

Correction

est_premier <- function(n)
{
bool <- TRUE
if (n <= 1) bool <- FALSE
  else {
    for (i in 2:sqrt(n))
      if (n %% i == 0) bool <- FALSE
  }
bool
}

generer_premiers <- function(n)
{
  premiers <- c()
  i <- 2
  while(length(premiers)<n)
  {
    if (est_premier(i)) premiers <- c(premiers,i)
    i <- i+1
  }
  premiers
}