OFFSET
0,1
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.
FORMULA
Equals 2 * Sum_{k>=1} 1/(k * 3^(k - A007949(k) + 1)).
EXAMPLE
0.287106131866347173222861038300495510591443812309388...
MATHEMATICA
RealDigits[2 * Sum[1/k/3^(k + 1 - IntegerExponent[k, 3]), {k, 1, 1000}], 10, 100][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Amiram Eldar, Jul 07 2020
STATUS
approved