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
Links
- Bruno Berselli, Table of n, a(n) for n = 1..1000
- Simon Plouffe, exp(Pi) to 5000 digits
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 *)
Comments