A105007 Primes from merging of 2 successive digits in decimal expansion of exp(Pi).

23, 31, 79, 29, 67, 79, 47, 73, 61, 11, 19, 43, 23, 83, 97, 71, 19, 97, 67, 19, 67, 59, 73, 31, 41, 83, 47, 71, 17, 79, 53, 79, 23, 89, 13, 37, 41, 17, 41, 83, 47, 43, 59, 43, 67, 41, 13, 67, 71, 31, 19, 41, 47, 11, 37, 73, 31, 47, 47, 73, 53, 83, 31, 29, 47, 89, 19, 43, 73

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]], 2, 1], # > 9 && PrimeQ[#] &] (* Vincenzo Librandi, Apr 26 2013 *)

Extensions

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