The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A144497 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A144497

Row 4 of array in A144502.
(history; published version)

#14 by Peter Luschny at Sun Oct 08 04:43:03 EDT 2023

STATUS

reviewed

approved

#13 by Michel Marcus at Sun Oct 08 01:54:08 EDT 2023

STATUS

proposed

reviewed

#12 by G. C. Greubel at Sun Oct 08 00:31:50 EDT 2023

STATUS

editing

proposed

#11 by G. C. Greubel at Sun Oct 08 00:31:17 EDT 2023

FORMULA

a(n) = (n*(n^6 + 21*n^5 + 172*n^4 + 705*n^3 + 1522*n^2 + 1623*n + 653)*a(n-1) - (n^3 + 12*n^2 + 41*n + 37))/(n^6 + 15*n^5 + 82*n^4 + 207*n^3 + 244*n^2 + 105*n - 1), with a(0) = 37. - G. C. Greubel, Oct 08 2023

MATHEMATICA

a[n_]:= If[n<1, 37, (n*(n^6+21*n^5+172*n^4+705*n^3+1522*n^2+1623*n +653)*a[n-1] -(n^3+12*n^2+41*n+37))/(n^6+15*n^5+82*n^4+207*n^3 +244*n^2+105*n-1)];

Table[a[n], {n, 0, 40}] (* G. C. Greubel, Oct 08 2023 *)

PROG

(Magma) R<x>:=PowerSeriesRing(Rationals(), 40); Coefficients(R!(Laplace( (37-30*x+9*x^2-x^3)*Exp(x)/(1-x)^7 ))); // G. C. Greubel, Oct 08 2023

(SageMath)

def A144497_list(prec):

P.<x> = PowerSeriesRing(QQ, prec)

return P( (37-30*x+9*x^2-x^3)*exp(x)/(1-x)^7 ).egf_to_ogf().list()

A144497_list(40) # G. C. Greubel, Oct 08 2023

CROSSREFS

Cf. A144495, A144496, A144498, A144499, A144500, A144501, A144502, A144503.

STATUS

approved

editing

#10 by Michel Marcus at Sat Apr 06 01:18:00 EDT 2019

STATUS

reviewed

approved

#9 by Joerg Arndt at Sat Apr 06 01:09:56 EDT 2019

STATUS

proposed

reviewed

#8 by Michel Marcus at Sat Apr 06 01:07:37 EDT 2019

STATUS

editing

proposed

#7 by Michel Marcus at Sat Apr 06 01:07:34 EDT 2019

PROG

(PARI) my(x='x+O('x^25)); Vec(serlaplace(exp(x)*(37-30*x+9*x^2-x^3)/(1-x)^7)) \\ Michel Marcus, Apr 06 2019

CROSSREFS

Cf. A144502.

STATUS

proposed

editing

#6 by Seiichi Manyama at Sat Apr 06 00:57:46 EDT 2019

STATUS

editing

proposed

#5 by Seiichi Manyama at Sat Apr 06 00:57:42 EDT 2019

LINKS

Seiichi Manyama, <a href="/A144497/b144497.txt">Table of n, a(n) for n = 0..444</a>

STATUS

approved

editing