2019 is geen priemgetal

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.

volgendepriemgetal

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