OFFSET
1,1
COMMENTS
There are 361 of this numbers in the first 10000 digits of e.
Leading zeros are permitted so some of the terms have fewer than 10 digits. - Harvey P. Dale, Apr 18 2018
LINKS
Author?, More about the puzzle
Google, Puzzle.
Ed Pegg, Jr. and Eric W. Weisstein, Mathematica's Google Aptitude, MathWorld Headline news, Oct 13, 2004.
MATHEMATICA
q=10000; lst={}; Do[a=Take[RealDigits[N[E, q]][[1]], {n, n+9}]; If[Plus@@a==49, (*Print[FromDigits[a]]*)AppendTo[lst, FromDigits[a]]], {n, q-9}]; lst (* Vladimir Joseph Stephan Orlovsky, May 05 2011 *)
FromDigits/@Select[Partition[RealDigits[E, 10, 1000][[1]], 10, 1], Total[#] == 49&] (* Harvey P. Dale, Apr 18 2018 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jul 12 2004
STATUS
approved