[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

A104140
Decimal expansion of 1 - log_10(9).
3
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, 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, 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
OFFSET
0,2
COMMENTS
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).
EXAMPLE
1 - log_10(9) = 0.0457574905606751254099441934897...
MATHEMATICA
Take[Prepend[First[RealDigits[N[1 - Log[10, 9], 120]]], 0], 101] (* Ryan Propper, Sep 14 2005, fixed by Vaclav Kotesovec, Apr 04 2020 *)
PROG
(PARI) 1 - log(9)/log(10) \\ Michel Marcus, Apr 04 2020
CROSSREFS
Cf. A007524.
Sequence in context: A261418 A011457 A016720 * A378392 A377675 A003563
KEYWORD
nonn,cons
AUTHOR
Lekraj Beedassy, Mar 07 2005
EXTENSIONS
More terms from Ryan Propper, Sep 14 2005
a(100) corrected by Georg Fischer, Apr 04 2020
STATUS
approved