%I #6 Jul 08 2020 05:08:59
%S 4,3,5,6,1,1,0,2,8,2,9,2,1,7,2,1,7,4,2,1,3,1,2,2,5,4,5,1,5,8,0,8,6,5,
%T 0,2,2,9,3,7,4,6,9,0,7,1,8,8,0,6,8,8,2,0,1,6,3,2,8,8,0,1,0,9,5,9,7,3,
%U 5,6,2,6,7,2,9,3,8,9,0,9,0,9,1,6,8,5,0
%N Decimal expansion of the asymptotic density of numbers k divisible by A007814(k) (A336066).
%H Tibor Šalát, <a href="https://dml.cz/handle/10338.dmlcz/129777">On the function a_p, p^a_p(n) || n (n > 1)</a>, Mathematica Slovaca, Vol. 44, No. 2 (1994), pp. 143-151.
%F Equals Sum_{k>=1} 1/(k * 2^(k - A007814(k) + 1)).
%e 0.435611028292172174213122545158086502293746907188068...
%t RealDigits[Sum[1/k/2^(k + 1 - IntegerExponent[k, 2]), {k, 1, 1000}], 10, 100][[1]]
%Y Cf. A007814, A336066, A336069.
%K nonn,cons
%O 0,1
%A _Amiram Eldar_, Jul 07 2020
|