A336067 Decimal expansion of the asymptotic density of numbers k divisible by A007814(k) (A336066).
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, 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, 5, 6, 2, 6, 7, 2, 9, 3, 8, 9, 0, 9, 0, 9, 1, 6, 8, 5, 0
Offset: 0
Examples
0.435611028292172174213122545158086502293746907188068...
Links
- Tibor Šalát, On the function a_p, p^a_p(n) || n (n > 1), Mathematica Slovaca, Vol. 44, No. 2 (1994), pp. 143-151.
Programs
-
Mathematica
RealDigits[Sum[1/k/2^(k + 1 - IntegerExponent[k, 2]), {k, 1, 1000}], 10, 100][[1]]
Formula
Equals Sum_{k>=1} 1/(k * 2^(k - A007814(k) + 1)).