A367310 Continued fraction of the constant in A367309 (the area under the curve (1 - 2^(1-x)) zeta(x) from 0 to 1).
0, 1, 1, 1, 1, 18, 2, 1, 37, 3, 1, 2, 20, 1, 3, 3, 1, 1, 1, 1, 2, 1, 26, 1, 1, 1, 2, 4, 3, 1, 76, 1, 3, 1, 1, 2, 1, 1, 3, 5, 3, 1, 10, 2, 5, 1, 3, 8, 1, 3, 2, 2, 5, 2, 1, 1, 1, 6, 2, 36, 5, 1, 2, 1, 1, 1, 9, 4, 3, 1, 1, 4, 1, 1, 2, 1, 1, 3, 1, 2, 1, 1, 29, 1
Offset: 0
Programs
-
Mathematica
ContinuedFraction[NIntegrate[(1 - 2^(1-x)) Zeta[x], {x,0,1}, WorkingPrecision ->300]]
-
PARI
localprec(100); contfrac(intnum(x=0, 1, (1-2^(1-x))*zeta(x))) \\ Michel Marcus, Nov 14 2023
Comments