A114924 Primes p such that pi(p) is obtained by dropping one of the digits of p in decimal expansion.

17, 12491, 14723, 42437, 57089, 58193, 61051, 63131, 63347, 64553, 64567, 64577, 64591, 64601, 64661, 64679, 64951, 65071, 65173, 65293, 65881, 66863, 69931, 79817, 99551, 129083, 165103, 263071, 284833, 1407647, 1515259, 4303027

Offset

1,1

Comments

If n>31 then we can get pi(a(n)) by dropping the first digit of a(n). Next term is greater than prime(20000000).

Links

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

Example

95517973 is in the sequence because 95517973 is prime and pi(95517973)=5517973.

Mathematica

Do[h=IntegerDigits[Prime@n]; l=Length[h]; If[MemberQ[Table[ FromDigits[Drop[h, {k}]], {k, l}], n], Print[Prime@n]], {n, 20000000}]

Crossrefs

Cf. A114924.

Sequence in context: A166326 A203678 A257044 * A362066 A300596 A308962

Adjacent sequences: A114921 A114922 A114923 * A114925 A114926 A114927

Keyword

fini,base,nonn

Author

Farideh Firoozbakht, Jan 14 2006

Status

approved