|
|
A225142
|
|
Primes from merging of 10 successive digits in the decimal expansion of exp(Pi).
|
|
2
|
|
|
1406926327, 2632779269, 9269005729, 9045278351, 9706754921, 2196759527, 3835844717, 6468440141, 6844014103, 8216511287, 8763773147, 3473538331, 6273655727, 9618858059, 5430487121, 1300849327, 9325853203, 6189528329, 6802254197, 3054479927, 4479927817
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
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
|
|
|
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 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|