A007515 Continued fraction for Wirsing's constant. (Formerly M2267)

0, 3, 3, 2, 2, 3, 13, 1, 174, 1, 1, 1, 2, 2, 2, 1, 1, 1, 2, 2, 1, 5, 6, 1, 1, 73, 1, 4, 2, 3, 8, 1, 15, 1, 1, 4, 5, 1, 1, 3, 2, 1, 2, 2, 5, 2, 1, 3, 1, 1, 1, 3, 1, 5, 1, 3, 1, 2, 1, 2, 1, 2, 34, 1, 1, 5, 1, 2, 7, 2, 1, 2, 4, 1, 1, 23, 15, 2, 1, 2, 3, 1, 1, 7, 1, 3, 2, 1, 8, 3, 2, 1, 1, 8, 93, 1, 8, 3

Offset

0,2

References

D. E. Knuth, The Art of Computer Programming. Addison-Wesley, Reading, MA, Vol. 2, p. 350.

N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Links

Harry J. Smith, Table of n, a(n) for n = 0..387

G. Xiao, Contfrac

Simon Plouffe, The Gauss-Kuzmin-Wirsing constant

Index entries for continued fractions for constants

Eric Weisstein's World of Mathematics, Gauss-Kuzmin-Wirsing Constant

Example

0.3036630029... = [0,3,3,2,2,3,13,1,174,1,...]

Prog

(PARI) { default(realprecision, 382); lambda=0.\ 30366300289873265859744812190155623311087735225365\ 78951882454814672269952942469109843408119343636368\ 11098272263710616938474614859745801316065265381818\ 23787913244613989647642974095044629375949048702977\ 28772511058335175922044472408659119650778105589295\ 79186714752925653642591844121784234492057255294269\ 10040657788006767324303643964013896927671340737822\ 86711534915435462112848419717968; x=contfrac(lambda); for (n=1, 388, write("b007515.txt", n-1, " ", x[n])); } \\ Harry J. Smith, May 13 2009

Crossrefs

Cf. A038517.

Sequence in context: A304031 A162235 A113780 * A352455 A293729 A319297

Adjacent sequences: A007512 A007513 A007514 * A007516 A007517 A007518

Keyword

nonn,cofr

Author

N. J. A. Sloane, Robert G. Wilson v

Extensions

Extended by Eric W. Weisstein using a computation of Keith Briggs, Jul 08 2003

Status

approved