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.

A007677 Denominators of convergents to e.

Original entry on oeis.org

1, 1, 3, 4, 7, 32, 39, 71, 465, 536, 1001, 8544, 9545, 18089, 190435, 208524, 398959, 4996032, 5394991, 10391023, 150869313, 161260336, 312129649, 5155334720, 5467464369, 10622799089, 196677847971, 207300647060, 403978495031, 8286870547680, 8690849042711
Offset: 0

Views

Author

Keywords

Comments

Same as A113874 without its first two terms. - Jonathan Sondow, Aug 16 2006

Examples

			2, 3, 8/3, 11/4, 19/7, 87/32, 106/39, 193/71, 1264/465, 1457/536, 2721/1001, 23225/8544, 25946/9545, 49171/18089, 517656/190435, 566827/208524, 1084483/398959, 13580623/4996032, 14665106/5394991, 28245729/10391023, 410105312/150869313, 438351041/161260336, 848456353/312129649, ...
		

References

  • CRC Standard Mathematical Tables and Formulae, 30th ed. 1996, p. 88.
  • W. J. LeVeque, Fundamentals of Number Theory. Addison-Wesley, Reading, MA, 1977, p. 240.
  • N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

Crossrefs

Cf. A007676 (numerators of convergents to e).
Cf. A003417 (continued fraction of e).

Programs

  • Maple
    Digits := 60: E := exp(1); convert(evalf(E),confrac,50,'cvgts'): cvgts;
  • Mathematica
    Denominator[Convergents[E, 40]] (* T. D. Noe, Oct 12 2011 *)
    Denominator[Table[Piecewise[{
       {Hypergeometric1F1[-1 - n/3, -1 - (2 n)/3, 1]/Hypergeometric1F1[-(n/3), -1 - (2 n)/3, -1], Mod[n, 3] == 0},
       {Hypergeometric1F1[1/3 (-2 - n), -(2/3) (2 + n), 1]/Hypergeometric1F1[1/3 (-2 - n), -(2/3) (2 + n), -1], Mod[n, 3] == 1},
       {Hypergeometric1F1[1/3 (-1 - n), 1 - (2 (4 + n))/3, 1]/Hypergeometric1F1[1/3 (-4 - n), 1 - (2 (4 + n))/3, -1], Mod[n, 3] == 2}
    }], {n, 0, 30}]] (* Eric W. Weisstein, Sep 09 2013 *)
    Table[Piecewise[{
        {(1 + (2 n)/3)!/(n/3)! Hypergeometric1F1[-(n/3), -1 - (2 n)/3, -1], Mod[n, 3] == 0},
        {((2 (2 + n))/3)!/((2 + n)/3)! Hypergeometric1F1[1/3 (-2 - n), -(2/3) (2 + n), -1], Mod[n, 3] == 1},
        {((4 + n) (5/3 + (2 n)/3)! )/(3 ((4 + n)/3)!) Hypergeometric1F1[1/3 (-4 - n), 1 - (2 (4 + n))/3, -1], Mod[n, 3] == 2}
    }], {n, 0, 30}]  (* Eric W. Weisstein, Sep 10 2013 *)