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 A144496 #11 Oct 08 2023 04:43:28 %S A144496 7,37,229,1633,13219,119917,1205857,13318249,160305343,2088846709, %T A144496 29297613277,440110297777,7050173910619,119970793032253, %U A144496 2161243124917849,41091937905633337,822320410135133047,17277401903869659589,380267691288777510613,8749454854573455141889 %N A144496 Row 3 of array in A144502. %H A144496 Alois P. Heinz, <a href="/A144496/b144496.txt">Table of n, a(n) for n = 0..200</a> %F A144496 E.g.f.: (7-5*x+x^2)*exp(x)/(1-x)^5. %F A144496 a(n) ~ n! * n^4 * exp(1)/8. - _Vaclav Kotesovec_, Oct 08 2013 %F A144496 a(n) = (n*(n^4 + 10*n^3 + 33*n^2 + 44*n + 21)*a(n-1) + n^2 + 6*n + %F A144496 7)/(n^4 + 6*n^3 + 9*n^2 + 4*n + 1), with a(0) = 7. - _G. C. Greubel_, Oct 07 2023 %t A144496 CoefficientList[Series[E^x*(7-5*x+x^2)/(1-x)^5, {x, 0, 20}], x]* Range[0, 20]! (* _Vaclav Kotesovec_, Oct 08 2013 *) %o A144496 (Magma) R<x>:=PowerSeriesRing(Rationals(), 40); Coefficients(R!(Laplace( (7-5*x+x^2)*Exp(x)/(1-x)^5 ))); // _G. C. Greubel_, Oct 07 2023 %o A144496 (SageMath) %o A144496 def a(n): # a = A144496 %o A144496 if (n==0): return 7 %o A144496 else: return (n*(n^4+10*n^3+33*n^2+44*n+21)*a(n-1) + n^2+6*n+7)/(n^4+6*n^3+9*n^2+4*n+1) %o A144496 [a(n) for n in range(41)] # _G. C. Greubel_, Oct 07 2023 %Y A144496 Cf. A144495, A144497, A144498, A144499, A144500, A144501, A144502, A144503. %K A144496 nonn %O A144496 0,1 %A A144496 _David Applegate_ and _N. J. A. Sloane_, Dec 13 2008