OFFSET
1,1
COMMENTS
Subsequence of A003072. Equals A024973 if duplicates of repeated entries are removed. - R. J. Mathar, Apr 13 2008
LINKS
T. D. Noe, Table of n, a(n) for n = 1..10000
FORMULA
{n: A025469(n) >= 1}. - R. J. Mathar, Jun 15 2018
MATHEMATICA
Total/@Subsets[Range[10]^3, {3}]//Union (* Harvey P. Dale, Aug 22 2021 *)
PROG
(PARI) list(lim)=my(v=List(), x3, t); lim\=1; for(x=3, sqrtnint(lim-9, 3), x3=x^3; for(y=2, min(x-1, sqrtnint(lim-x3-1, 3)), t=x3+y^3; for(z=1, min(y-1, sqrtnint(lim-t, 3)), listput(v, t+z^3)))); Set(v) \\ Charles R Greathouse IV, Sep 20 2016
CROSSREFS
KEYWORD
nonn
AUTHOR
EXTENSIONS
Verified by Don Reble, Nov 19 2006
STATUS
approved