PROG
(MAGMAMagma) m:=50; R<x>:=PowerSeriesRing(Rationals(), m); Coefficients(R! ( (&*[(1+x^k)^k^2: k in [1..m]]) )); // G. C. Greubel, Oct 31 2018
(MAGMAMagma) m:=50; R<x>:=PowerSeriesRing(Rationals(), m); Coefficients(R! ( (&*[(1+x^k)^k^2: k in [1..m]]) )); // G. C. Greubel, Oct 31 2018
reviewed
approved
proposed
reviewed
editing
proposed
(MAGMA) m:=50; R<x>:=PowerSeriesRing(Rationals(), m); Coefficients(R! ( (&*[(1+x^k)^k^2: k in [1..(m+2)]]) )); // G. C. Greubel, Oct 31 2018
proposed
editing
editing
proposed
(MAGMA) m:=50; R<x>:=PowerSeriesRing(Rationals(), m); Coefficients(R! ( (&*[(1+x^k)^k^2: k in [1..(m+2)]]) )); // G. C. Greubel, Oct 31 2018
approved
editing
proposed
approved
editing
proposed
G.f.: exp(Sum_{k>=1} (-1)^(k+1)*x^k*(1 + x^k)/(k*(1 - x^k)^3)). - Ilya Gutkovskiy, May 30 2018
approved
editing