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
KEYWORD
nonn,less
AUTHOR
Roger L. Bagula, Jun 08 2007
STATUS
approved