OFFSET
0,2
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..1000
G. E. Andrews, P. Paule and A. Riese, MacMahon's Partition Analysis VIII: Plane partition diamonds, Advances Applied Math., 27 (2001), 231-242.
Index entries for linear recurrences with constant coefficients, signature (2, 1, -3, 1, -2, -1, 4, 2, 0, -2, -2, -2, 0, 2, 4, -1, -2, 1, -3, 1, 2, -1).
FORMULA
G.f.: (1-x^3)*(1-x^5)/( Product_{j=1..5} 1-x^j )^2. - G. C. Greubel, Aug 17 2022
MATHEMATICA
CoefficientList[Series[1/((1 - x)^2 (1 - x^2)^2 (1 - x^3) (1 - x^4)^2 (1 - x^5)), {x, 0, 60}], x] (* Vincenzo Librandi, Sep 05 2016 *)
PROG
(Magma) R<x>:=PowerSeriesRing(Integers(), 60); Coefficients(R!( (1-x^3)*(1-x^5)/(&*[1-x^j: j in [1..5]])^2 )); // G. C. Greubel, Aug 17 2022
(Sage)
def A069957_list(prec):
P.<x> = PowerSeriesRing(ZZ, prec)
return P( (1-x^3)*(1-x^5)/(product(1-x^j for j in (1..5)))^2 ).list()
A069957_list(60) # G. C. Greubel, Aug 17 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, May 05 2002
STATUS
approved