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

%I #14 Feb 16 2025 08:32:53

%S 7182818284,8182845904,8747135266,7427466391,5966290435,2952605956,

%T 753907774,777449920,3069697720,1252389784,3163688923,9229576351,

%U 4822082698,8879332036,6832823764,8328237646,8194558153,2509961818

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

%C There are 361 of this numbers in the first 10000 digits of e.

%C Leading zeros are permitted so some of the terms have fewer than 10 digits. - _Harvey P. Dale_, Apr 18 2018

%H Author?, <a href="http://zdnet.com.com/2100-1104-5263941.html">More about the puzzle</a>

%H Google, <a href="http://7427466391.com">Puzzle</a>.

%H Ed Pegg, Jr. and Eric W. Weisstein, <a href="https://mathworld.wolfram.com/news/2004-10-13/google/">Mathematica's Google Aptitude</a>, MathWorld Headline news, Oct 13, 2004.

%H <a href="http://mkaz.com/math/google-billboard/">Google Billboard Problems</a>.

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

%t FromDigits/@Select[Partition[RealDigits[E,10,1000][[1]],10,1],Total[#] == 49&] (* _Harvey P. Dale_, Apr 18 2018 *)

%Y Cf. A001113.

%K base,nonn,changed

%O 1,1

%A _Jason Earls_, Jul 12 2004