OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
MATHEMATICA
pspQ[n_] := CompositeQ[n] && PowerMod[2, (n - 1), n] == 1; a[n_] := Module[{k=1}, While[!pspQ[k*n+1], k++]; k]; Array[a, 60] (* Amiram Eldar, Jun 28 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Jason Earls, Nov 12 2002
STATUS
approved