OFFSET
1,3
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..120
MATHEMATICA
b[n_, l_, k_]:= b[n, l, k]= If[n==0, 1, Sum[If[i==l, 0, Sum[b[n-i*j, i, k], {j, 1, Min[k, n/i]}]], {i, n}]];
t[n_, k_]:= t[n, k]= If[k>n, 0, b[n, 0, k] - b[n, 0, k-1]]; (* A091613 *)
M:= With[{p=53}, Table[t[n, k], {n, p}, {k, p}]];
T := Inverse[M]; (* A091614 *)
Table[T[[n, 1]], {n, 50}] (* G. C. Greubel, Nov 27 2021 *)
CROSSREFS
KEYWORD
sign
AUTHOR
Christian G. Bower, Jan 23 2004
STATUS
approved