A024975 Sums of three distinct positive cubes.

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

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

Cf. A122723 (primes in here), A025399-A025402, A025411 (4 distinct positive cubes).

Sequence in context: A355033 A032497 A024973 * A025399 A171390 A034813

Adjacent sequences: A024972 A024973 A024974 * A024976 A024977 A024978

Keyword

nonn

Author

Clark Kimberling

Extensions

Verified by Don Reble, Nov 19 2006

Status

approved