OFFSET
0,9
LINKS
Alois P. Heinz, Table of n, a(n) for n = 0..10000
MAPLE
b:= proc(n, i) option remember; `if`(n=0, 1,
`if`(n<0 or i<0, 0, add(b(n-2^i*j^3, i-1),
j=0..iroot(iquo(n, 2^i), 3))))
end:
a:= n-> b(n, ilog2(n)):
seq(a(n), n=0..100); # Alois P. Heinz, Dec 28 2014
MATHEMATICA
b[n_, i_] := b[n, i] = If[n == 0, 1,
If[n < 0 || i < 0, 0, Sum[b[n - 2^i*j^3, i - 1],
{j, 0, Floor@Quotient[n, 2^i]^(1/3)}]]];
a[n_] := b[n, Floor@Log2[n]];
Table[a[n], {n, 0, 100}] (* Jean-François Alcover, May 01 2022, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn,look
AUTHOR
David S. Newman, Sep 21 2014
STATUS
approved