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.
%I A113873 #24 Jun 04 2019 10:37:17 %S A113873 1,1,2,3,8,11,19,87,106,193,1264,1457,2721,23225,25946,49171,517656, %T A113873 566827,1084483,13580623,14665106,28245729,410105312,438351041, %U A113873 848456353,14013652689,14862109042,28875761731,534625820200 %N A113873 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). %C A113873 Without the first two terms, same as A007676 (numerators of convergents to e). - _Jonathan Sondow_, Aug 16 2006 %H A113873 T. D. Noe, <a href="/A113873/b113873.txt">Table of n, a(n) for n = 0..201</a> %H A113873 H. Cohn, <a href="https://www.jstor.org/stable/27641837">A short proof of the simple continued fraction expansion of e</a>, Amer. Math. Monthly, 113 (No. 1, 2006), 57-62. %H A113873 J. Sondow, <a href="https://www.jstor.org/stable/27642006">A geometric proof that e is irrational and a new measure of its irrationality</a>, Amer. Math. Monthly 113 (2006) 637-641. %H A113873 J. Sondow, <a href="https://arxiv.org/abs/0704.1282">A geometric proof that e is irrational and a new measure of its irrationality</a>, arXiv:0704.1282 [math.HO], 2007-2010. %H A113873 J. Sondow and K. Schalm, <a href="http://arxiv.org/abs/0709.0671">Which partial sums of the Taylor series for e are convergents to e? (and a link to the primes 2, 5, 13, 37, 463), II</a>, Gems in Experimental Mathematics (T. Amdeberhan, L. A. Medina, and V. H. Moll, eds.), Contemporary Mathematics, vol. 517, Amer. Math. Soc., Providence, RI, 2010. %F A113873 a(n)/A113874(n) -> e. %p A113873 a[0]:=1: a[1]:=1: a[2]:=2: for n from 3 to 33 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..33); # _Emeric Deutsch_, Jan 28 2006 %t A113873 a[0] = a[1] = 1; 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] (* _Robert G. Wilson v_, Jan 28 2006 *) %K A113873 easy,nonn %O A113873 0,3 %A A113873 _N. J. A. Sloane_, Jan 27 2006 %E A113873 More terms from _Robert G. Wilson v_ and _Emeric Deutsch_, Jan 28 2006