login
A024975
Sums of three distinct positive cubes.
23
36, 73, 92, 99, 134, 153, 160, 190, 197, 216, 225, 244, 251, 281, 288, 307, 342, 349, 352, 368, 371, 378, 405, 408, 415, 434, 469, 476, 495, 521, 532, 540, 547, 560, 567, 577, 584, 586, 603, 623, 638, 645, 664, 684, 701, 729, 736, 738, 755, 757, 764, 792, 794, 801, 820
OFFSET
1,1
COMMENTS
Subsequence of A003072. Equals A024973 if duplicates of repeated entries are removed. - R. J. Mathar, Apr 13 2008
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
Cf. A122723 (primes in here), A025399-A025402, A025411 (4 distinct positive cubes).
Sequence in context: A355033 A032497 A024973 * A025399 A171390 A034813
KEYWORD
nonn
EXTENSIONS
Verified by Don Reble, Nov 19 2006
STATUS
approved