# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/

Search: id:a322719
Showing 1-1 of 1

%I A322719 #9 Apr 08 2019 03:12:09
%S A322719 1,11,100,982,10039,100389,1000307,9998285,100018922,1000026506
%N A322719 Number of times the digit 4 appears in the first 10^n decimal digits of Euler's number e = exp(1), counting starts after the decimal point.
%C A322719 It is not known if e is normal, but the distribution of decimal digits found for the first 10^n digits of e shows no statistically significant departure from a uniform distribution.
%H A322719 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/eDigits.html">e Digits</a>.
%p A322719 a:=proc(n)
%p A322719   local digits, EXP1, C, i;
%p A322719   digits:=10^n+100;
%p A322719   EXP1:=convert(frac(evalf[digits](exp(1))), string)[2..digits-99];
%p A322719   C:=0;
%p A322719   for i from 1 to length(EXP1) do
%p A322719     if EXP1[i]="4" then C:=C+1; fi;
%p A322719   od;
%p A322719   return(C);
%p A322719 end;
%t A322719 Table[Count[IntegerDigits[IntegerPart[(E - 2)*10^10^n]], 4], {n, 7}] (* _Robert Price_, Apr 07 2019 *)
%Y A322719 Cf. A001113, A099295, A322645, A322715, A322716, A322717, A322718, A322720, A322721, A322722, A322723, A322724.
%K A322719 nonn,base,more
%O A322719 1,2
%A A322719 _Martin Renner_, Dec 24 2018

# Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE