A104846 Primes from merging of 5 successive digits in decimal expansion of e.

74713, 62497, 24977, 24709, 47093, 95957, 49669, 27427, 46639, 32003, 59921, 21817, 35729, 63073, 28627, 27943, 94349, 33829, 98807, 57383, 41879, 18793, 91499, 68477, 47741, 37423, 42437, 24371, 10753, 17027, 61331, 13313, 93287

Offset

1,1

Comments

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

Links

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

Mathematica

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

Crossrefs

Cf. A104843-A104862.

Sequence in context: A234725 A058415 A238521 * A206127 A230221 A252242

Adjacent sequences: A104843 A104844 A104845 * A104847 A104848 A104849

Keyword

nonn,base

Author

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

Extensions

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

Status

approved