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.

A007676 Numerators of convergents to e.

Original entry on oeis.org

2, 3, 8, 11, 19, 87, 106, 193, 1264, 1457, 2721, 23225, 25946, 49171, 517656, 566827, 1084483, 13580623, 14665106, 28245729, 410105312, 438351041, 848456353, 14013652689, 14862109042, 28875761731, 534625820200, 563501581931, 1098127402131, 22526049624551
Offset: 0

Views

Author

Keywords

Comments

Same as A113873 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. A007677 (denominators of convergents to e).
Cf. A003417 (continued fraction of e).

Programs

  • Maple
    Digits := 60: convert(evalf(E),confrac,50,'cvgts'): cvgts;
  • Mathematica
    Numerator[Convergents[E, 30]] (* T. D. Noe, Oct 12 2011 *)
    Numerator[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 (3 + n))/3)!/(-1 + (3 + n)/3)! Hypergeometric1F1[1/3 (-3 - n), 1 - (2 (3 + 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},
       {(5/3 + (2 n)/3)!/((1 + n)/3)! Hypergeometric1F1[1/3 (-1 - n), 1 - (2 (4 + n))/3, 1], Mod[n, 3] == 2}
    }], {n, 0, 30}] (* Eric W. Weisstein, Sep 10 2013 *)

A113874 a(3n) = a(3n-1) + a(3n-2), a(3n+1) = 2n*a(3n) + a(3n-1), a(3n+2) = a(3n+1) + a(3n).

Original entry on oeis.org

1, 0, 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
Offset: 0

Views

Author

N. J. A. Sloane, Jan 27 2006

Keywords

Comments

A113873(n)/a(n) -> e.
Without the first two terms, same as A007677 (denominators of convergents to e). - Jonathan Sondow, Aug 16 2006

Crossrefs

Cf. A113873.

Programs

  • Maple
    a[0]:=1: a[1]:=0: a[2]:=1: for n from 3 to 34 do if n mod 3 = 0 then a[n]:=a[n-1]+a[n-2] elif n mod 3 = 1 then a[n]:=2*(n-1)*a[n-1]/3+a[n-2] else a[n]:=a[n-1]+a[n-2] fi: od: seq(a[n],n=0..34); # Emeric Deutsch, Jan 28 2006
  • Mathematica
    a[0] = 1; a[1] = 0; a[n_] := a[n] = Switch[ Mod[n, 3], 0, a[n - 1] + a[n - 2], 1, 2(n - 1)/3*a[n - 1] + a[n - 2], 2, a[n - 1] + a[n - 2]]; a /@ Range[0, 30]
    Join[{1,0},Denominator[Convergents[E,30]]] (* Harvey P. Dale, Aug 09 2014 *)

Extensions

More terms from Robert G. Wilson v and Emeric Deutsch, Jan 28 2006
Showing 1-2 of 2 results.