This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A230767 Continued fraction expansion of Mertens' constant (A077761). 1
 0, 3, 1, 4, 1, 2, 5, 2, 1, 1, 1, 1, 13, 4, 2, 4, 2, 1, 33, 296, 2, 1, 5, 19, 1, 5, 1, 1, 1, 1, 1, 12, 12, 9, 1, 8, 4, 10, 2, 1, 1, 3, 1, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 8, 1, 4, 2, 1, 6, 1, 1, 1, 1, 1, 2, 5, 1, 3, 4, 6, 5, 1, 4, 1, 23 (list; graph; refs; listen; history; text; internal format)
 OFFSET 1,2 LINKS Charles R Greathouse IV, Table of n, a(n) for n = 1..10000 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 Cf. A077761. Sequence in context: A078011 A010285 A159878 * A324116 A030757 A004592 Adjacent sequences:  A230764 A230765 A230766 * A230768 A230769 A230770 KEYWORD nonn,cofr AUTHOR Edward Jiang, Oct 29 2013 EXTENSIONS a(19) and onward corrected by Charles R Greathouse IV, May 27 2015 STATUS approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

Last modified June 16 06:46 EDT 2019. Contains 324145 sequences. (Running on oeis4.)