OFFSET
1,2
COMMENTS
LINKS
C. Rivera, Prime strings
MATHEMATICA
A229181 = {1}; digits = Join[{{1}}, RealDigits[Pi, 10, 10^4] // First // Rest]; digits //. {a:({_Integer..}..), b__Integer /; PrimeQ[FromDigits[{b}]], c___Integer} :> (Print[lg = {b} // Length]; AppendTo[A229181, lg]; {{1}, c}) ; A229181 (* Jean-François Alcover, Oct 17 2013 *)
PROG
(PARI) default(realprecision, 5000); c=Pi/10; u=[]; for(k=1, 9e9, ispseudoprime(c\.1^k) & !print1(k, ", ") & k=0*c=frac(c*10^k))
CROSSREFS
KEYWORD
nonn,base
AUTHOR
M. F. Hasler, Sep 15 2013
EXTENSIONS
More terms from Jean-François Alcover, Oct 17 2013
STATUS
approved