OFFSET
1,2
COMMENTS
a(15) > 10^13. - Charles R Greathouse IV, Mar 17 2011
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..28 (terms < 3*10^20)
MATHEMATICA
NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; p = 1; Do[ If[ Mod[p = NextPrim[p], n] == 2, 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(10)-a(13) from Giovanni Resta and Robert G. Wilson v, Feb 22 2006
Missing first term inserted by M. F. Hasler, Feb 04 2009
a(15)-a(23) from Giovanni Resta, Oct 02 2019
STATUS
approved