OFFSET
1,1
MATHEMATICA
a[n_]:=Length[Solve[x^3 + y^3 == n, {x, y}, Integers]]; Table[a[i], {i, 10000}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Mason Korb, Jan 27 2020
STATUS
approved