A104847 Primes from merging of 6 successive digits in decimal expansion of e.

904523, 360287, 624977, 757247, 995957, 967627, 630353, 759457, 594571, 932003, 904357, 290033, 307381, 381323, 627943, 525101, 738341, 341879, 418793, 884167, 847741, 560297, 606737, 328709, 977209, 720931, 169283, 695369, 644549, 312773

Offset

1,1

Comments

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

Links

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

Mathematica

With[{len=6}, 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: A357494 A209208 A209209 * A251520 A250542 A251799

Adjacent sequences: A104844 A104845 A104846 * A104848 A104849 A104850

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

Status

approved