OFFSET
1,1
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..500
MATHEMATICA
Module[{nn=60, prs=Prime[Range[500]]}, Table[SelectFirst[prs, Mod[#, 7n]==1&], {n, nn}]] (* Harvey P. Dale, Apr 13 2022 *)
PROG
(PARI) for(n=1, 80, s=1; while((isprime(s)*s-1)%(7*n)>0, s++); print1(s, ", "))
CROSSREFS
KEYWORD
nonn
AUTHOR
Amarnath Murthy, May 15 2002
EXTENSIONS
More terms from Benoit Cloitre, May 18 2002
STATUS
approved