login
A104847
Primes from merging of 6 successive digits in decimal expansion of e.
25
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
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
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