STATUS
editing
approved
editing
approved
T. D. Noe and Alois P. Heinz, <a href="/A023358/b023358.txt">Table of n, a(n) for n = 0..1000</a> (first 501 terms from T. D. Noe)
approved
editing
proposed
approved
editing
proposed
G.f.: 1 / (1 - sum(Sum_{n>=1, } x^(n^3) ) ). [_- _Joerg Arndt_, Mar 30 2014]
approved
editing
proposed
approved
editing
proposed
a[n_] := a[n] = If[n==0, 1, If[n<0, 0, Sum[a[n-i^3], {i, 1, Floor[n^(1/3)]}]]]; Table[a[n], {n, 0, 80}] (* Jean-François Alcover, Apr 08 2015, after Alois P. Heinz *)
approved
editing
editing
approved
end:
end: seq(a(n), n=0..80); # Alois P. Heinz, Sep 08 2014