A105009 Primes from merging of 4 successive digits in decimal expansion of exp(Pi).

6367, 1993, 1697, 6971, 9719, 1997, 7549, 4801, 1087, 4441, 8447, 5879, 2689, 6899, 1013, 7417, 1039, 7243, 8059, 5881, 7841, 1367, 3671, 3821, 4703, 3833, 2129, 4789, 5443, 1823, 8237, 8059, 4547, 5479, 7901, 9013, 2659, 5101, 1499, 9643, 4229, 1607

Offset: 1

Author

Andrew G. West (WestA(AT)wlu.edu), Mar 31 2005

Keywords

• nonn
• base

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]], 4, 1], # > 999 && PrimeQ[#] &] (* Vincenzo Librandi, Apr 27 2013 *)

Extensions

Changed offset from 0 to 1 by Vincenzo Librandi, Apr 27 2013