login
This site is supported by donations to The OEIS Foundation.

 

Logo


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.

License Agreements, Terms of Use, Privacy Policy. .

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