|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
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
|
|
|
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,changed
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|