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

389, 227, 131, 557, 127, 257, 379, 607, 577, 431, 179, 947, 773, 547, 661, 127, 733, 337, 839, 607, 107, 239, 947, 269, 647, 523, 487, 757, 541, 467, 281, 293, 331, 101, 193, 337, 997, 953, 307, 751, 823, 947, 479, 991, 587, 877, 683, 239, 727, 883, 461

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(2) as calculated by _Simon Plouffe_ at WorldWideSchool.org. [broken link]
• Eric Weisstein, Exponential Functions

Crossrefs

Cf. A072334

Programs

Mathematica

 Select[FromDigits/@Partition[RealDigits[Exp[2], 10, 500][[1]], 3, 1],#>99&&PrimeQ[#]&] (* Vincenzo Librandi, Apr 26 2013 *)