This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A095926 #14 Feb 16 2025 08:32:53
%S A095926 7182818284,8182845904,8747135266,7427466391,5966290435,2952605956,
%T A095926 753907774,777449920,3069697720,1252389784,3163688923,9229576351,
%U A095926 4822082698,8879332036,6832823764,8328237646,8194558153,2509961818
%N A095926 Numbers formed from 10 consecutive digits of e whose digital sums are 49.
%C A095926 There are 361 of this numbers in the first 10000 digits of e.
%C A095926 Leading zeros are permitted so some of the terms have fewer than 10 digits. - _Harvey P. Dale_, Apr 18 2018
%H A095926 Author?, <a href="http://zdnet.com.com/2100-1104-5263941.html">More about the puzzle</a>
%H A095926 Google, <a href="http://7427466391.com">Puzzle</a>.
%H A095926 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 A095926 <a href="http://mkaz.com/math/google-billboard/">Google Billboard Problems</a>.
%t A095926 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 A095926 FromDigits/@Select[Partition[RealDigits[E,10,1000][[1]],10,1],Total[#] == 49&] (* _Harvey P. Dale_, Apr 18 2018 *)
%Y A095926 Cf. A001113.
%K A095926 base,nonn
%O A095926 1,1
%A A095926 _Jason Earls_, Jul 12 2004