|
%I #10 Apr 08 2019 03:11:38
%S 2,6,96,989,10264,100132,1000577,10004438,99982926,999989229
%N Number of times the digit 1 appears in the first 10^n decimal digits of Euler's number e = exp(1), counting starts after the decimal point.
%C 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 Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/eDigits.html">e Digits</a>.
%p a:=proc(n)
%p local digits, EXP1, C, i;
%p digits:=10^n+100;
%p EXP1:=convert(frac(evalf[digits](exp(1))), string)[2..digits-99];
%p C:=0;
%p for i from 1 to length(EXP1) do
%p if EXP1[i]="1" then C:=C+1; fi;
%p od;
%p return(C);
%p end;
%t Table[Count[IntegerDigits[IntegerPart[(E - 2)*10^10^n]], 1], {n, 7}] (* _Robert Price_, Apr 07 2019 *)
%Y Cf. A001113, A099292, A322642, A322715, A322717, A322718, A322719, A322720, A322721, A322722, A322723, A322724.
%K nonn,base,more
%O 1,1
%A _Martin Renner_, Dec 24 2018
|
