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 A008294 #42 Dec 16 2021 22:32:33 %S A008294 1,1,1,2,5,6,5,28,24,61,180,120,61,662,1320,720,1385,7266,10920,5040, %T A008294 1385,24568,83664,100800,40320,50521,408360,1023120,1028160,362880, %U A008294 50521,1326122,6749040,13335840,11491200,3628800,2702765,30974526,113760240 %N A008294 Triangle of coefficients in expansion of D^n (sec x) / sec x in powers of tan x. %H A008294 Vincenzo Librandi, <a href="/A008294/b008294.txt">Table of n, a(n) for n = 0..1000</a> %H A008294 J. F. Barbero G., J. Salas and E. J. S. Villaseñor, <a href="http://arxiv.org/abs/1307.5624">Bivariate Generating Functions for a Class of Linear Recurrences. II. Applications</a>, arXiv preprint arXiv:1307.5624 [math.CO], 2013-2015. %H A008294 Dominique Foata and Guo-Niu Han, <a href="http://www-irma.u-strasbg.fr/~foata/paper/pub119derivative.pdf">Multivariable Tangent and Secant q-derivative Polynomials</a>. - _N. J. A. Sloane_, Oct 05 2012 %H A008294 J. Francon, <a href="http://www.numdam.org/item?id=ITA_1978__12_1_49_0">Histoires de fichiers</a>, RAIRO Informatique Théorique et Applications, 12 (1978), 49-62. %H A008294 J. Francon, <a href="/A006157/a006157.pdf">Histoires de fichiers</a>, RAIRO Informatique Théorique et Applications, 12 (1978), 49-62. (Annotated scanned copy) %H A008294 Gordon Haigh, <a href="http://www.jstor.org/stable/3615119">A "natural" approach to Pick's theorem</a>, Math. Gaz. 64 (1980), no. 429, 173-180. %H A008294 Donald E. Knuth and Thomas J. Buckholtz, <a href="http://dx.doi.org/10.1090/S0025-5718-1967-0221735-9">Computation of tangent, Euler and Bernoulli numbers</a>, Math. Comp. 21 1967 663-688. %F A008294 a(0, k) = delta(0, k); a(n+1, k) = k*a(n, k-1) + (k+1)*a(n, k+1). %t A008294 nmax = 11; t[0, 0] = 1; t[0, k_] = 0; t[n_, k_] := t[n, k] = k*t[n-1, k-1] + (k+1)*t[n-1, k+1]; Flatten[ Table[ t[n, k-1], {n, 0, nmax}, {k, Mod[n, 2]+1, n+1, 2}]] (* _Jean-François Alcover_, Nov 08 2011 *) %Y A008294 Cf. A008293. See A104035 for another version. %K A008294 easy,nonn,tabf,nice %O A008294 0,4 %A A008294 _N. J. A. Sloane_