A104844 Primes from merging of 3 successive digits in decimal expansion of e.

271, 281, 523, 353, 977, 757, 709, 967, 277, 353, 547, 457, 571, 821, 251, 919, 193, 599, 181, 359, 563, 307, 349, 907, 233, 829, 251, 101, 157, 383, 307, 149, 499, 167, 509, 761, 853, 107, 907, 449, 499, 761, 613, 331, 313, 449, 673, 113, 709, 709, 127

Offset: 1

Author

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

Keywords

• nonn
• base

Comments

Leading zeros are not permitted, so each term is 3 digits in length. - Harvey P. Dale, Oct 23 2011

Links

• Vincenzo Librandi, Table of n, a(n) for n = 1..3000

Crossrefs

Cf. A104843-A104862.

Programs

Mathematica

With[{len=3},FromDigits/@Select[Partition[RealDigits[E,10,1000][[1]], len,1],PrimeQ[FromDigits[#]]&&IntegerLength[FromDigits[#]]==len&]] (* Harvey P. Dale, Oct 23 2011 *)

Extensions

Offset changed from 0 to 1 by Vincenzo Librandi, Apr 21 2013