A271880 Decimal expansion of the probability that a random real number is evil.

1, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 9, 7, 8, 3, 3, 7, 7, 7, 3, 1, 6, 2, 8, 6, 4, 7, 6, 0, 5, 5, 2, 7, 9, 4, 6, 2, 5, 9, 4, 0, 6, 5, 1, 3, 3, 3, 2, 7, 7, 5, 6, 1, 9

Offset: 0

Author

Stanislav Sykora, Apr 16 2016

Keywords

• nonn
• cons
• base

Comments

A real number is said to be evil if the cumulative sum of its digits following the decimal point 'hits' the value 666. It is amazing how close this value is to 1/5 (the difference is in A271881).

Examples

			0.19999999999999999999999999999999999999999999999999999999999999978337...
		

Links

• Stanislav Sykora, Table of n, a(n) for n = 0..2000
• Eric Weisstein's World of Mathematics, Evil Number.

Crossrefs

Cf. A001019, A010734, A100061, A100062, A271881.

Programs

Mathematica

RealDigits[SeriesCoefficient[(1 - x^9)/(x^10 - 10 x + 9), {x, 0, 665}], 10, 120][[1]] (* Amiram Eldar, May 24 2023 *)

PARI

0.0 + Vec(Ser((1-x^9)/(x^10-10*x+9),x,666))[666]

Formula

Equals A100061(666)/A100062(666).