ListePremiers

Syntaxe

ListePremiers(debut, fin)
Retourne la liste des nombres premiers compris entre debut et fin. Les paramètres sont au format nombre, le résultat est au format liste.
Adapté d'après mickay.jill@9online.fr

Exemple

ListePremiers(1, 100)
---> {2, 3, 5, 7, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59, 61, 67, 71, 73, 79, 83, 89, 97}

Script

on ListePremiers(debut, fin)
	set listeofparfaits to {}
	repeat with i from debut to fin
		if (count of ListeDiviseurs(i)) is 2 then ¬ 
    set listeofparfaits to listeofparfaits & i
	end repeat
	return listeofparfaits
end ListePremiers

Remarque

Utilise ZeroDouble et ListeDiviseurs .