login
A023144
Numbers k such that prime(k) == 2 (mod k).
18
1, 3, 13, 15, 69, 73, 637321, 27066989, 27067095, 27067133, 179992909, 1208198629, 1208198853, 8179002209, 382465573515, 2636913003191, 18262325820323, 18262325820339, 6201265271239163, 6201265271239191, 6201265271239431, 43525513764815041, 43525513764815125
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 *)
KEYWORD
nonn
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