A225142 Primes from merging of 10 successive digits in the decimal expansion of exp(Pi).

1406926327, 2632779269, 9269005729, 9045278351, 9706754921, 2196759527, 3835844717, 6468440141, 6844014103, 8216511287, 8763773147, 3473538331, 6273655727, 9618858059, 5430487121, 1300849327, 9325853203, 6189528329, 6802254197, 3054479927, 4479927817

Offset: 1

Author

Bruno Berselli, Apr 30 2013

Keywords

• nonn
• base

Comments

Leading zeros are not permitted, so each prime is 10 digits in length. The terms are listed in the order in which they occur.

Links

• Bruno Berselli, Table of n, a(n) for n = 1..1000
• Simon Plouffe, exp(Pi) to 5000 digits

Crossrefs

Cf. A039661, A105007 - A105014.

Cf. A105015.

Programs

Mathematica

With[{len = 10}, FromDigits /@ Select[Partition[RealDigits[E^Pi, 10, 600][[1]], len, 1], PrimeQ[FromDigits[#]] && IntegerLength[FromDigits[#]] == len &]]
Select[FromDigits/@Partition[RealDigits[Exp[Pi],10,600][[1]],10,1],PrimeQ[ #] && IntegerLength[#]==10&] (* Harvey P. Dale, Aug 27 2020 *)