|
%I #24 Aug 06 2020 14:13:07
%S 0,4,5,7,5,7,4,9,0,5,6,0,6,7,5,1,2,5,4,0,9,9,4,4,1,9,3,4,8,9,7,6,9,3,
%T 8,1,5,9,9,7,4,2,2,7,1,6,1,8,6,0,8,2,7,0,3,4,0,2,6,8,7,1,9,3,8,9,5,4,
%U 1,6,9,4,4,3,2,6,7,7,7,5,3,9,1,4,0,6,3,2,8,8,7,0,4,7,6,7,3,9,6,9,7
%N Decimal expansion of 1 - log_10(9).
%C 1 - log_10(9) is the probability that 9 occurs as the first significant digit in data collections according to Benford's law) (see A007524).
%H <a href="/index/Be#Benford">Index entries for sequences related to Benford's law</a>
%H <a href="/index/Tra#transcendental">Index entries for transcendental numbers</a>
%e 1 - log_10(9) = 0.0457574905606751254099441934897...
%t Take[Prepend[First[RealDigits[N[1 - Log[10, 9], 120]]], 0], 101] (* _Ryan Propper_, Sep 14 2005, fixed by _Vaclav Kotesovec_, Apr 04 2020 *)
%o (PARI) 1 - log(9)/log(10) \\ _Michel Marcus_, Apr 04 2020
%Y Cf. A007524.
%K nonn,cons
%O 0,2
%A _Lekraj Beedassy_, Mar 07 2005
%E More terms from _Ryan Propper_, Sep 14 2005
%E a(100) corrected by _Georg Fischer_, Apr 04 2020
|
