OFFSET
1,2
COMMENTS
Any further terms are > 100000. - Lucas A. Brown, Oct 26 2024
LINKS
Lucas A. Brown, Python program.
MATHEMATICA
p = First[RealDigits[Pi, 10, 10^5]]; p = p[[ Select[ Range[10^5], p[[ # ]] != 9 & ]]]; Do[ If[ PrimeQ[ FromDigits[ Take[p, n], 9]], Print[n]], {n, 2250} ]
CROSSREFS
KEYWORD
base,nonn,hard,more,changed
AUTHOR
Robert G. Wilson v, Dec 01 2001
EXTENSIONS
a(5) from Lucas A. Brown, Oct 26 2024
STATUS
approved