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

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

Offset: 1

Author

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

Keywords

• nonn
• base

Links

• Harvey P. Dale and Vincenzo Librandi, Table of n, a(n) for n = 1..10000
• The first 5,000 digits of exp(2) as calculated by _Simon Plouffe_ at WorldWideSchool.org.
• Eric Weisstein, Exponential Functions

Programs

Mathematica

Select[FromDigits/@Partition[RealDigits[Exp[2],10,1000][[1]],2,1], #>9 && PrimeQ[#]&] (* Harvey P. Dale, Nov 03 2012 *)

Extensions

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