A225141 Primes from merging of 10 successive digits in the decimal expansion of exp(2).
7460575007, 2252257379, 6079057763, 5316126547, 7447839221, 5414146799, 2933188807, 8997407299, 7407299869, 2998696009, 9869600953, 2368469479, 6947930299, 7714456831, 1445683123, 6619147987, 8715043283, 7724849201, 8492011193, 1193531621, 2117195173
Offset: 1
Links
- Bruno Berselli, Table of n, a(n) for n = 1..1000
- Simon Plouffe, exp(2) to 5000 digits
Programs
-
Mathematica
With[{len = 10}, FromDigits /@ Select[Partition[RealDigits[E^2, 10, 700][[1]], len, 1], PrimeQ[FromDigits[#]] && IntegerLength[FromDigits[#]] == len &]]
Comments