cp's OEIS Frontend

A100061 Numerator of the probability that an integer n occurs in the cumulative sums of the decimal digits of a random real number between 0 and 1.

%I A100061 #15 Feb 16 2025 08:32:55
%S A100061 1,10,100,1000,10000,100000,1000000,10000000,100000000,612579511,
%T A100061 5738374621,53509541320,496353364300,4576113154000,41886926650000,
%U A100061 380127217600000,3413851687000000,30264311980000000,263901070900000000,2401684855296999121,21793684651236981541,197206153848009709930
%N A100061 Numerator of the probability that an integer n occurs in the cumulative sums of the decimal digits of a random real number between 0 and 1.
%H A100061 Stanislav Sykora, <a href="/A100061/b100061.txt">Table of n, a(n) for n = 1..666</a>
%H A100061 Eric Weisstein's World of Mathematics, <a href="https://mathworld.wolfram.com/EvilNumber.html">Evil Number</a>
%F A100061 Empirical g.f.: x * (1 +9*x +81*x^2) * (1 +729*x^3 +531441*x^6) / ((1 -9*x) * (1 +8*x +63*x^2 +486*x^3 +3645*x^4 +26244*x^5 +177147*x^6 +1062882*x^7 +4782969*x^8)). - _Colin Barker_, Apr 17 2016
%e A100061 1/9, 10/81, 100/729, 1000/6561, 10000/59049, ...
%t A100061 Table[Numerator@ SeriesCoefficient[(1 - x^9)/(x^10 - 10 x + 9), {x, 0, n}], {n, 0, 21}]
%o A100061 (PARI) s = Vec(Ser((1-x^9)/(x^10-10*x+9),x,666));
%o A100061 a = vector(#s,n,numerator(s[n])) \\ _Stanislav Sykora_, Apr 16 2016
%Y A100061 Cf. A100062.
%Y A100061 Cf. A271880, A271881.
%K A100061 nonn,base,frac,easy
%O A100061 1,2
%A A100061 _Eric W. Weisstein_, Nov 01 2004
%E A100061 More terms from _Michael De Vlieger_, Apr 16 2016