OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..68
MATHEMATICA
p = 1; Do[ If[ Mod[p = NextPrime[p], n] == 5, Print[n]], {n, 1, 10^9}] (* Robert G. Wilson v, Feb 18 2004 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Robert G. Wilson v, Feb 18 2004
a(24)-a(27) from Robert G. Wilson v, Feb 18 2004
Three missing initial terms at start of sequence inserted by Zak Seidov, Feb 05 2009
STATUS
approved