%I #12 May 24 2023 03:59:31
%S 2,1,6,6,2,2,2,6,8,3,7,1,3,5,2,3,9,4,4,7,2,0,5,3,7,4,0,5,9,3,4,8,6,6,
%T 6,7,2,2,4,3,8,0,5,7,6,0,7,3,9,3,8,1,4,4,5,3,4,7,2,9,9,9,8,5,1,7,0,6,
%U 3,6,8,5,3,7,0,5,1,1,9,3,6,3,7,1,5,2,9,2,9,0,8,5,3,4,0,1,9,5,3,6,1,9,9,1,6
%N Decimal expansion of the difference between 1/5 and the probability that a random real number is evil.
%C Please see A271880.
%H Stanislav Sykora, <a href="/A271881/b271881.txt">Table of n, a(n) for n = -63..2000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/EvilNumber.html">Evil Number</a>.
%F Equals 1/5 - A100061(666)/A100062(666).
%e 2.1662226837135239447205374059348666722438057607393814453472999851...*10^-64
%t RealDigits[1/5 - SeriesCoefficient[(1 - x^9)/(x^10 - 10 x + 9), {x, 0, 665}], 10, 120][[1]] (* _Amiram Eldar_, May 24 2023 *)
%o (PARI) 0.2 - Vec(Ser((1-x^9)/(x^10-10*x+9),x,666))[666]
%Y Cf. A100061, A100062, A271880.
%K nonn,cons,base
%O -63,1
%A _Stanislav Sykora_, Apr 16 2016