login
A095926
Numbers formed from 10 consecutive digits of e whose digital sums are 49.
1
7182818284, 8182845904, 8747135266, 7427466391, 5966290435, 2952605956, 753907774, 777449920, 3069697720, 1252389784, 3163688923, 9229576351, 4822082698, 8879332036, 6832823764, 8328237646, 8194558153, 2509961818
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
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
Cf. A001113.
Sequence in context: A235390 A082255 A216867 * A198784 A104944 A257899
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jul 12 2004
STATUS
approved