This site is supported by donations to The OEIS Foundation.

 Hints (Greetings from The On-Line Encyclopedia of Integer Sequences!)
 A048296 Continued fraction for Artin's constant. 7
 0, 2, 1, 2, 14, 1, 1, 2, 3, 5, 1, 3, 1, 5, 1, 1, 2, 3, 5, 46, 2, 2, 4, 4, 2, 1, 6, 1, 1, 4, 2, 2, 1, 109, 1, 1, 4, 9, 3, 45, 8, 4, 1, 2, 1, 13, 13, 1, 1, 2, 1, 1, 2, 1, 4, 2, 3, 1, 17, 1, 1, 1, 6, 42, 1, 3, 1, 1, 4, 1, 1, 1, 1, 1, 2, 4, 5, 4, 1, 26, 1, 1, 74, 1, 1, 2, 1, 2, 2, 1, 1, 10, 1 (list; graph; refs; listen; history; text; internal format)
 OFFSET 0,2 REFERENCES See A005596 for further references. LINKS Harry J. Smith, Table of n, a(n) for n = 0..995 EXAMPLE artin = 0.37395581361920228805... = 0 + 1/(2 + 1/(1 + 1/(2 + 1/(14 + ...)))). - Harry J. Smith, Apr 23 2009 MATHEMATICA digits = 105; m0 = 1000; dm = 100; Clear[s]; r[n_] := -1 + Fibonacci[n-1] + Fibonacci[n+1]; s[m_] := s[m] = NSum[-r[n] PrimeZetaP[n]/n, {n, 2, m}, NSumTerms -> m0, WorkingPrecision -> 400] // Exp; s[m0]; s[m = m0 + dm]; While[RealDigits[s[m], 10, digits][[1]] != RealDigits[s[m - dm], 10, digits][[1]], Print[m]; m = m + dm]; A = s[m]; ContinuedFraction[A, 93] (* Jean-François Alcover, Apr 15 2016 *) CROSSREFS Cf. A005596. Sequence in context: A052579 A266314 A153908 * A016542 A242085 A007402 Adjacent sequences:  A048293 A048294 A048295 * A048297 A048298 A048299 KEYWORD cofr,nonn,nice AUTHOR Fred Lunnon and Simon Plouffe, Dec 11 1999 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 19 23:56 EDT 2019. Contains 324222 sequences. (Running on oeis4.)