OFFSET
0,1
LINKS
Steven R. Finch, Mathematical Constants II, Encyclopedia of Mathematics and Its Applications, Cambridge University Press, Cambridge, 2018, p. 51 (constant Y3).
V. Sita Ramaiah and D. Suryanarayana, Sums of reciprocals of some multiplicative functions - II, Indian J. Pure Appl. Math., Vol. 11 (1980), pp. 1334-1355 (eq. 3.8-3.9, p. 1352-1353).
László Tóth, Alternating sums concerning multiplicative arithmetic functions, Journal of Integer Sequences, Vol. 20 (2017), Article 17.2.1 (section 4.13, p. 29).
EXAMPLE
0.76871836244648519867273433245535052523425574041190...
MATHEMATICA
$MaxExtraPrecision = 1000; m = 1000; f[p_] := 1 - (p - 1)/p*Sum[1/p^k/(p^k + 1), {k, 1, m}]; c = Rest[CoefficientList[Series[Log[f[1/x]], {x, 0, m}], x]*Range[0, m]]; RealDigits[f[2]*Exp[NSum[Indexed[c, k]*(PrimeZetaP[k] - 1/2^k)/k, {k, 2, m}, NSumTerms -> m, WorkingPrecision -> m]], 10, 100][[1]]
CROSSREFS
KEYWORD
nonn,cons
AUTHOR
Amiram Eldar, May 10 2019
EXTENSIONS
More digits from Vaclav Kotesovec, Jun 13 2021
STATUS
approved