A156154 Primes p such that prime(p)=2 (mod p), where prime(p)=A000040(p) is the p-th prime.

3, 13, 73, 637321, 27067133

Offset

1,1

Links

Table of n, a(n) for n=1..5.

Formula

a(n) = A000040(A156155(n)) ; A156154 = intersection of A000040 and A023144.

Mathematica

Select[Prime[Range[17*10^5]], Mod[Prime[#], #]==2&] (* Harvey P. Dale, Dec 28 2022 *)

Prog

(PARI) p=c=0; until(0, until( isprime(c++), p=nextprime(p+1)); (p-2)%c & next; print1( c", "))

Crossrefs

Cf. A156153.

Sequence in context: A162161 A119013 A190878 * A334785 A349533 A020094

Adjacent sequences: A156151 A156152 A156153 * A156155 A156156 A156157

Keyword

hard,more,nonn

Author

M. F. Hasler, Feb 04 2009

Status

approved