OFFSET
0,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..1000
MATHEMATICA
eta[q_]:= q^(1/24)*QPochhammer[q]; CoefficientList[Series[q^(-7/24)* eta[q]*eta[q^2]*eta[q^4], {q, 0, 100}], q] (* G. C. Greubel, Apr 30 2018 *)
PROG
(PARI) q='q+O('q^50); Vec(eta(q)*eta(q^2)*eta(q^4)) \\ G. C. Greubel, Apr 30 2018
CROSSREFS
KEYWORD
sign
AUTHOR
N. J. A. Sloane and Gary W. Adamson, Feb 18 2010
STATUS
approved