|
%I #20 Aug 22 2021 17:22:12
%S 36,73,92,99,134,153,160,190,197,216,225,244,251,281,288,307,342,349,
%T 352,368,371,378,405,408,415,434,469,476,495,521,532,540,547,560,567,
%U 577,584,586,603,623,638,645,664,684,701,729,736,738,755,757,764,792,794,801,820
%N Sums of three distinct positive cubes.
%C Subsequence of A003072. Equals A024973 if duplicates of repeated entries are removed. - _R. J. Mathar_, Apr 13 2008
%H T. D. Noe, <a href="/A024975/b024975.txt">Table of n, a(n) for n = 1..10000</a>
%F {n: A025469(n) >= 1}. - _R. J. Mathar_, Jun 15 2018
%t Total/@Subsets[Range[10]^3,{3}]//Union (* _Harvey P. Dale_, Aug 22 2021 *)
%o (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
%Y Cf. A122723 (primes in here), A025399-A025402, A025411 (4 distinct positive cubes).
%K nonn
%O 1,1
%A _Clark Kimberling_
%E Verified by _Don Reble_, Nov 19 2006
|
