OFFSET
1,2
COMMENTS
EXAMPLE
1.3395401474715935179... = 2 - (1/3 + 1/(3*2) + 1/(5*3) + 1/(7*4) + 1/(11*6)) + ...) = 2*(1 - A179119).
MATHEMATICA
digits = 87;
S = 2 - 2 NSum[(-1)^n PrimeZetaP[n], {n, 2, Infinity}, Method -> "AlternatingSigns", WorkingPrecision -> digits+5];
RealDigits[S, 10, digits][[1]] (* Jean-François Alcover, Jun 20 2019 *) [From A179119]
PROG
(PARI) 2*(1 - sumeulerrat(1/(p*(p+1)))) \\ Amiram Eldar, Mar 18 2021
CROSSREFS
KEYWORD
AUTHOR
Marco Ripà, Apr 06 2019
EXTENSIONS
Edited by Wolfdieter Lang, Jul 10 2019
STATUS
approved