OFFSET
0,2
LINKS
Charles R Greathouse IV, Table of n, a(n) for n = 0..9999
MATHEMATICA
$MaxExtraPrecision = 400; ContinuedFraction[N[EulerGamma + NSum[(MoebiusMu[m]/m)*Log[N[Zeta[m], 120]], {m, 2, 1000}, Method -> "EulerMaclaurin", AccuracyGoal -> 120, NSumTerms -> 1000, PrecisionGoal -> 120, WorkingPrecision -> 120], 71]] (* Michael De Vlieger, May 28 2015, after Jean-François Alcover at A077761 *)
PROG
(PARI) a()=my(e=precision(2.>>(32*ceil(default(realprecision)*38539962/371253907)) , 9), t, s=Euler, n=1); while((t=log(zeta(n++))/n)>e, s+=moebius(n)*t); t=contfrac(s+moebius(n)*t); t[1..#t-1] \\ Charles R Greathouse IV, May 27 2015
CROSSREFS
KEYWORD
nonn,cofr
AUTHOR
Edward Jiang, Oct 29 2013
EXTENSIONS
a(19) and onward corrected by Charles R Greathouse IV, May 27 2015
Offset changed by Andrew Howroyd, Aug 08 2024
STATUS
approved