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).
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
KEYWORD
fini,base,nonn
AUTHOR
Farideh Firoozbakht, Jan 14 2006
STATUS
approved