OFFSET
0,2
LINKS
Muniru A Asiru, Table of n, a(n) for n = 0..500
Index entries for linear recurrences with constant coefficients, signature (8,-16,-16,56,32,-64,-64,-16).
FORMULA
MATHEMATICA
CoefficientList[Series[1/(1-2*x-2*x^2)^4, {x, 0, 40}], x] (* G. C. Greubel, Oct 03 2022 *)
PROG
(GAP) List([0..25], n->2^n*Sum([0..Int(n/2)], k->Binomial(n-k+3, 3)*Binomial(n-k, k)*(1/2)^k)); # Muniru A Asiru, Jun 12 2018
(Magma) R<x>:=PowerSeriesRing(Integers(), 40); Coefficients(R!( 1/(1-2*x-2*x^2)^4 )); // G. C. Greubel, Oct 03 2022
(SageMath)
def A073390_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( 1/(1-2*x-2*x^2)^4 ).list()
A073390_list(40) # G. C. Greubel, Oct 03 2022
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Wolfdieter Lang, Aug 02 2002
STATUS
approved