OFFSET
0,10
LINKS
EXAMPLE
a(36) = 6 because we have [27,8,1], [27,1,8], [8,27,1], [8,1,27], [1,27,8] and [1,8,27].
MAPLE
b:= proc(n, i, p) option remember;
`if`((i*(i+1)/2)^2<n, 0, `if`(n=0, p!,
`if`(i^3>n, 0, b(n-i^3, i-1, p+1))+b(n, i-1, p)))
end:
a:= n-> b(n, iroot(n, 3), 0):
seq(a(n), n=0..100); # Alois P. Heinz, Jan 30 2020
MATHEMATICA
b[n_, i_, p_] := b[n, i, p] = If[(i(i+1)/2)^2 < n, 0, If[n == 0, p!, If[i^3 > n, 0, b[n-i^3, i-1, p+1]] + b[n, i-1, p]]];
a[n_] := b[n, Floor[n^(1/3)], 0];
a /@ Range[0, 100] (* Jean-François Alcover, Oct 31 2020, after Alois P. Heinz *)
CROSSREFS
KEYWORD
nonn,look
AUTHOR
Ilya Gutkovskiy, Jan 29 2020
STATUS
approved