|
%I #13 Aug 27 2020 14:09:35
%S 1406926327,2632779269,9269005729,9045278351,9706754921,2196759527,
%T 3835844717,6468440141,6844014103,8216511287,8763773147,3473538331,
%U 6273655727,9618858059,5430487121,1300849327,9325853203,6189528329,6802254197,3054479927,4479927817
%N Primes from merging of 10 successive digits in the decimal expansion of exp(Pi).
%C Leading zeros are not permitted, so each prime is 10 digits in length. The terms are listed in the order in which they occur.
%H Bruno Berselli, <a href="/A225142/b225142.txt">Table of n, a(n) for n = 1..1000</a>
%H Simon Plouffe, <a href="http://www.worldwideschool.org/library/books/sci/math/MiscellaneousMathematicalConstants/chap28.html">exp(Pi) to 5000 digits</a>
%t With[{len = 10}, FromDigits /@ Select[Partition[RealDigits[E^Pi, 10, 600][[1]], len, 1], PrimeQ[FromDigits[#]] && IntegerLength[FromDigits[#]] == len &]]
%t Select[FromDigits/@Partition[RealDigits[Exp[Pi],10,600][[1]],10,1],PrimeQ[ #] && IntegerLength[#]==10&] (* _Harvey P. Dale_, Aug 27 2020 *)
%Y Cf. A039661, A105007 - A105014.
%Y Cf. A105015.
%K nonn,base
%O 1,1
%A _Bruno Berselli_, Apr 30 2013
|
