A129452 - OEIS

A129452

Expansion of (1-9*x^2-27*x^3)/((1+3*x+9*x^2)*(1-4*x-9*x^2-9*x^3+81*x^4)).

1, 1, 4, 61, 208, 1093, 7198, 35560, 193450, 1089772, 5837140, 31840051, 174564403, 949080799, 5176371973, 28253599486, 154003756249, 839880083245, 4580937825271, 24980164298164, 136230227328730, 742951002036193

(list; graph; refs; listen; history; text; internal format)

OFFSET

0,3

LINKS

G. C. Greubel, Table of n, a(n) for n = 0..1000

Index entries for linear recurrences with constant coefficients, signature (1,12,72,27,-162,-729).

MATHEMATICA

LinearRecurrence[{1, 12, 72, 27, -162, -729}, {1, 1, 4, 61, 208, 1093}, 41] (* G. C. Greubel, Feb 07 2024 *)

PROG

(Magma) R<x>:=PowerSeriesRing(Integers(), 40); Coefficients(R!( (1-9*x^2-27*x^3)/((1+3*x+9*x^2)*(1-4*x-9*x^2-9*x^3+81*x^4)) )); // G. C. Greubel, Feb 07 2024

(SageMath)

def A129452_list(prec):

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

return P( (1-9*x^2-27*x^3)/((1+3*x+9*x^2)*(1-4*x-9*x^2-9*x^3+81*x^4)) ).list()

A129452_list(40) # G. C. Greubel, Feb 07 2024

CROSSREFS

Cf. A129441, A129443.

Sequence in context: A173607 A071582 A158300 * A131014 A118005 A132064

Adjacent sequences: A129449 A129450 A129451 * A129453 A129454 A129455

KEYWORD

nonn,less

AUTHOR

Roger L. Bagula, Jun 08 2007

STATUS

approved