A095926 Numbers formed from 10 consecutive digits of e whose digital sums are 49.

7182818284, 8182845904, 8747135266, 7427466391, 5966290435, 2952605956, 753907774, 777449920, 3069697720, 1252389784, 3163688923, 9229576351, 4822082698, 8879332036, 6832823764, 8328237646, 8194558153, 2509961818

Offset: 1

Author

Jason Earls, Jul 12 2004

Keywords

• base
• nonn

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.
• Google Billboard Problems.

Crossrefs

Cf. A001113.

Programs

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 *)