A104848 Primes from merging of 7 successive digits in decimal expansion of e.

2718281, 6028747, 2497757, 5354759, 4759457, 7594571, 5945713, 7138217, 3059921, 9921817, 6059563, 6307381, 3073813, 9525101, 5251019, 4089149, 8914993, 9348841, 4167509, 7774499, 8606261, 2613313, 5830007, 1274437

Offset

1,1

Comments

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

Links

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

Mathematica

With[{len=7}, 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: A317286 A081409 A251997 * A234370 A051384 A251350

Adjacent sequences: A104845 A104846 A104847 * A104849 A104850 A104851

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 19 2013

Status

approved