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

 

Logo


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

Index entries for sequences related to Artin's conjecture

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.

License Agreements, Terms of Use, Privacy Policy. .

Last modified June 19 23:56 EDT 2019. Contains 324222 sequences. (Running on oeis4.)