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

Author

Clark Kimberling

Keywords

• nonn

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

Crossrefs

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

Programs

Mathematica

Total/@Subsets[Range[10]^3,{3}]//Union (* Harvey P. Dale, Aug 22 2021 *)

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

Formula

{n: A025469(n) >= 1}. - R. J. Mathar, Jun 15 2018

Extensions

Verified by Don Reble, Nov 19 2006