A023144 Numbers k such that prime(k) == 2 (mod k).

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 *)

Crossrefs

Cf. A092044, A023143, A023145, A023146, A023147, A023148, A023149, A023150, A023151, A023152.

Cf. A105290.

Sequence in context: A032919 A340018 A216044 * A152269 A063674 A273678

Adjacent sequences: A023141 A023142 A023143 * A023145 A023146 A023147

Keyword

nonn

Author

David W. Wilson

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