A105014 Primes from merging of 9 successive digits in decimal expansion of exp(Pi).
269005729, 290863679, 473802661, 527835169, 706754921, 754921967, 801087773, 835844717, 717445879, 796098493, 849365327, 327965863, 991013741, 984449143, 143096677, 136716319, 128763773, 377314703, 833162821, 294047891, 654433627
Offset: 1
Links
- Vincenzo Librandi, Table of n, a(n) for n = 1..1000
- The first 5,000 digits of exp(PI) as calculated by _Simon Plouffe_ at WorldWideSchool.org.
- Eric Weisstein, Exponential Functions
Crossrefs
Cf. A039661.
Programs
-
Mathematica
Select[FromDigits /@ Partition[RealDigits[Exp[Pi], 10, 500][[1]], 9, 1], # > 99999999 && PrimeQ[#]&] (* Vincenzo Librandi, Apr 27 2013 *)
Extensions
Changed offset from 0 to 1 by Vincenzo Librandi, Apr 27 2013