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 A137785 #14 Jan 17 2022 03:48:26
%S A137785 0,1,6,0,1,0,18,0,1,96,0,36,0,1,0,480,0,60,0,1,2880,0,1440,0,90,0,1,0,
%T A137785 20160,0,3360,0,126,0,1,161280,0,80640,0,6720,0,168,0,1,0,1451520,0,
%U A137785 241920,0,12096,0,216,0,1,14515200,0,7257600,0,604800,0,20160,0,270,0,1
%N A137785 Triangular sequence of coefficients of the expansion of p(x,t) = exp(x*t)*(1 + t^2)^2/(t*(1 - t^2)).
%D A137785 The Beauty of Fractals, Springer-Verlag, New York, 1986, editors Peitgen and Richter, pages 153
%D A137785 Terrell Hill, Statistical Mechanics, Dover, 1987, page 329 ff
%e A137785 {0, 1},
%e A137785 {6, 0, 1},
%e A137785 {0, 18, 0, 1},
%e A137785 {96, 0, 36, 0, 1},
%e A137785 {0, 480, 0, 60, 0, 1},
%e A137785 {2880, 0, 1440, 0, 90, 0, 1},
%e A137785 {0, 20160, 0, 3360, 0, 126, 0, 1},
%e A137785 {161280, 0, 80640, 0, 6720, 0, 168, 0, 1},
%e A137785 {0, 1451520, 0, 241920, 0, 12096, 0, 216, 0, 1},
%e A137785 {14515200, 0, 7257600, 0, 604800, 0, 20160, 0, 270, 0, 1},
%e A137785 {0, 159667200, 0, 26611200, 0, 1330560, 0, 31680, 0, 330, 0, 1}
%t A137785 p[t_] = Exp[x*t]*(1 + t^2)^2/(t*(1 - t^2));
%t A137785 Table[ ExpandAll[(n + 1)!*SeriesCoefficient[ Series[p[t], {t, 0, 30}], n]], { n, 0, 10}];
%t A137785 a = Table[(n + 1)!* CoefficientList[SeriesCoefficient[ Series[p[t], {t, 0, 30}], n], x], {n, 0, 10}];
%t A137785 Flatten[a]
%Y A137785 Cf. A136264.
%K A137785 nonn,tabf,uned
%O A137785 1,3
%A A137785 _Roger L. Bagula_, Apr 28 2008