|
%I #8 Sep 08 2022 08:45:46
%S 1,8,36,119,322,756,1595,3094,5607,9604,15686,24597,37232,54640,78021,
%T 108717,148197,198036,259888,335453,426438,534513,661263,808137,
%U 976395,1167054,1380834,1618106,1878844,2162583,2468385,2794815,3139929
%N G.f. is the polynomial (1-x^3) * (1-x^6) * (1-x^9) * (1-x^12) * (1-x^15) * (1-x^18) * (1-x^21) * (1-x^24) / (1-x)^8.
%C This is a row of the triangle in A162499. Only finitely many terms are nonzero.
%H G. C. Greubel, <a href="/A162596/b162596.txt">Table of n, a(n) for n = 0..100</a> (complete row)
%t CoefficientList[Series[Times@@(1-x^(3*Range[8]))/(1-x)^8,{x,0,40}],x] (* _Harvey P. Dale_, Jun 03 2012 *)
%o (PARI) x='x+O('x^100); Vec((1-x^3)*(1-x^6)*(1-x^9)*(1-x^12)*(1-x^15)*(1- x^18)*(1-x^21)*(1-x^24)/(1-x)^8) \\ _G. C. Greubel_, Jul 06 2018
%o (Magma) m:=100; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!((1-x^3)*(1-x^6)*(1-x^9)*(1-x^12)*(1-x^15)*(1- x^18)*(1-x^21)*(1-x^24)/(1-x)^8)); // _G. C. Greubel_, Jul 06 2018
%K nonn
%O 0,2
%A _N. J. A. Sloane_, Dec 02 2009
|
