cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Showing 1-2 of 2 results.

A010124 Continued fraction for sqrt(19).

Original entry on oeis.org

4, 2, 1, 3, 1, 2, 8, 2, 1, 3, 1, 2, 8, 2, 1, 3, 1, 2, 8, 2, 1, 3, 1, 2, 8, 2, 1, 3, 1, 2, 8, 2, 1, 3, 1, 2, 8, 2, 1, 3, 1, 2, 8, 2, 1, 3, 1, 2, 8, 2, 1, 3, 1, 2, 8, 2, 1, 3, 1, 2, 8, 2, 1, 3, 1, 2, 8, 2, 1, 3, 1, 2, 8, 2, 1, 3, 1, 2, 8, 2, 1
Offset: 0

Views

Author

Keywords

Examples

			4.358898943540673552236981983... = 4 + 1/(2 + 1/(1 + 1/(3 + 1/(1 + ...)))). - _Harry J. Smith_, Jun 03 2009
		

References

  • James J. Tattersall, Elementary Number Theory in Nine Chapters, Cambridge University Press, 1999, page 276.

Crossrefs

Cf. A041028/A041029 (convergents).
Cf. A010475 (decimal expansion).

Programs

  • Mathematica
    ContinuedFraction[Sqrt[19],300] (* Vladimir Joseph Stephan Orlovsky, Mar 05 2011 *)
  • PARI
    { allocatemem(932245000); default(realprecision, 17000); x=contfrac(sqrt(19)); for (n=0, 20000, write("b010124.txt", n, " ", x[n+1])); } \\ Harry J. Smith, Jun 03 2009

Formula

G.f.: (4 + 2*x + x^2 + 3*x^3 + x^4 + 2*x^5 + 4*x^6)/(1 - x^6). - Stefano Spezia, Jul 26 2025

A041028 Numerators of continued fraction convergents to sqrt(19).

Original entry on oeis.org

4, 9, 13, 48, 61, 170, 1421, 3012, 4433, 16311, 20744, 57799, 483136, 1024071, 1507207, 5545692, 7052899, 19651490, 164264819, 348181128, 512445947, 1885518969, 2397964916, 6681448801, 55849555324
Offset: 0

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    Table[Numerator[FromContinuedFraction[ContinuedFraction[Sqrt[19],n]]],{n,1,50}] (* Vladimir Joseph Stephan Orlovsky, Mar 17 2011 *)
    CoefficientList[Series[- (x^11 - 4 x^10 + 9 x^9 - 13 x^8 + 48 x^7 - 61 x^6 - 170 x^5 - 61 x^4 - 48 x^3 - 13 x^2 - 9 x - 4)/(x^12 - 340 x^6 + 1), {x, 0, 30}], x] (* Vincenzo Librandi, Oct 22 2013 *)
    LinearRecurrence[{0,0,0,0,0,340,0,0,0,0,0,-1},{4,9,13,48,61,170,1421,3012,4433,16311,20744,57799},30] (* or *) Numerator[ Convergents[ Sqrt[19],30]] (* Harvey P. Dale, Jul 04 2021 *)

Formula

a(n) = 340*a(n-6)-a(n-12). G.f.: -(x^11 -4*x^10 +9*x^9 -13*x^8 +48*x^7 -61*x^6 -170*x^5 -61*x^4 -48*x^3 -13*x^2 -9*x -4)/(x^12-340*x^6+1). [Colin Barker, Jul 16 2012]
Showing 1-2 of 2 results.