|
%I #13 Apr 14 2024 23:24:55
%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="http://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
|
