V. Is 2019 een priemgetal?
A. Neen – het is deelbaar door 3. Het eerstvolgende jaartal dat een priemgetal is, is 2027.
Méér interesse in priemgetallen? Ik heb een Excel gemaakt die de eerstvolgende 2.000 priemgetallen berekent vanaf een bepaald getal.
Voor de liefhebbers, de code:
Function IsPriem(x As Long) As Boolean IsPriem = True For teller = 2 To Math.Sqr(x) If x Mod teller = 0 Then IsPriem = False Exit Function End If Next teller End Function Function NextPriem(x As Long) As Long NextPriem = x Do NextPriem = NextPriem + 1 Loop Until IsPriem(NextPriem) End Function