OFFSET
0,13
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..17711
FORMULA
a(n) = [x^n y^10] 1/Product_{j>=2} (1-y*x^A000045(j)).
MAPLE
h:= proc(n) option remember; `if`(n<1, 0, `if`((t->
issqr(t+4) or issqr(t-4))(5*n^2), n, h(n-1)))
end:
b:= proc(n, i, t) option remember; `if`(n=0, 1, `if`(i<1 or
t<1, 0, b(n, h(i-1), t)+b(n-i, h(min(n-i, i)), t-1)))
end:
a:= n-> (k-> b(n, h(n), k)-b(n, h(n), k-1))(10):
seq(a(n), n=0..120);
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Alois P. Heinz, Sep 18 2018
STATUS
approved