PROG
(MAGMAMagma) m:=60; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!( (&*[(&*[(1-x^(j*k))/(1+x^(j*k)):j in [1..2*m]]): k in [1..2*m]]) )); // G. C. Greubel, Oct 29 2018
(MAGMAMagma) m:=60; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!( (&*[(&*[(1-x^(j*k))/(1+x^(j*k)):j in [1..2*m]]): k in [1..2*m]]) )); // G. C. Greubel, Oct 29 2018
Seiichi Manyama, <a href="/A320908/b320908_1.txt">Table of n, a(n) for n = 0..10000</a>
proposed
approved
editing
proposed
Seiichi Manyama, <a href="/A320908/b320908_1.txt">Table of n, a(n) for n = 0..100010000</a>
approved
editing
reviewed
approved
proposed
reviewed
editing
proposed
(MAGMA) m:=60; R<x>:=PowerSeriesRing(Integers(), m); Coefficients(R!( (&*[(&*[(1-x^(j*k))/(1+x^(j*k)):j in [1..2*m]]): k in [1..2*m]]) )); // G. C. Greubel, Oct 29 2018
proposed
editing
editing
proposed