

A198174


Primes from merging of 10 successive digits in decimal expansion of Pi, in the order of appearance.


20



5926535897, 4197169399, 1693993751, 7510582097, 4825342117, 5822317253, 2841027019, 8521105559, 8954930381, 4756482337, 2712019091, 5432664821, 3266482133, 6072602491, 5588174881, 8815209209, 6282925409, 2540917153, 5903600113, 8204665213, 3841469519
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


COMMENTS

Leading zeros are not permitted, so each term is 10 digits in length.


LINKS



MATHEMATICA

With[{len=10}, Select[FromDigits/@Partition[RealDigits[Pi, 10, 1000][[1]], len, 1], IntegerLength[#]==len&&PrimeQ[#]&]]


PROG

(PARI) A198174(n, x=Pi, m=10, silent=0)={m=10^m; for(k=1, default(realprecision), (isprime(p=x\.1^k%m)&&p*10>m)next; silentprint1(p", "); nreturn(p))} \\ The optional arguments can be used to produce other sequences of this series (cf. Crossrefs). Use e.g. \p999 to set precision to 999 digits.  M. F. Hasler, Nov 01 2014


CROSSREFS



KEYWORD

nonn,base


AUTHOR



STATUS

approved



