OFFSET
0,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..2500
Miranda C. N. Cheng, John F. R. Duncan, Jeffrey A. Harvey, Umbral Moonshine, arXiv:1204.2779 [math.RT], 2012-2013.
MATHEMATICA
nmax = 50; a:= 8*CoefficientList[Series[q*Sum[q^(k - 1)*(Product[1 + q^j, {j, 1, 2 k - 2}])/(Product[1 - q^(2 j - 1), {j, 1, k}])^2, {k, 0, nmax}], {q, 0, 150}], q]; Table[a[[n]], {n, 1, 100}] (* G. C. Greubel, Jul 27 2018 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Mar 24 2015
STATUS
approved