|
%I #18 May 18 2019 22:49:43
%S 4,5,6,7,11,12,13,14,15,18,19,20,21,22,23,25,26,30,31,32,33,34,37,38,
%T 39,40,41,42,44,45,46,47,48,49,50,51,52,53,56,57,58,59,60,61,63,67,68,
%U 69,70,71,74,75,76,77,78,79,82,83,84,85,86,87,88,89
%N Numbers that are not the sum of 3 nonnegative cubes.
%H T. D. Noe, <a href="/A022561/b022561.txt">Table of n, a(n) for n=1..10000</a>
%H <a href="/index/Su#ssq">Index entries for sequences related to sums of cubes</a>
%t lst1=Range[1359]; lst3=Take[Union[Flatten[Table[a^3+b^3+c^3,{a,0,16},{b,0,16},{c,0,16}]]],234] Complement[lst1,lst3] (* _Vladimir Joseph Stephan Orlovsky_, Feb 16 2010 *)
%t Select[Range[90], PowersRepresentations[#, 3, 3] == {} &] (* _Bruno Berselli_, Nov 09 2012, after _Giovanni Resta_ in A022555 *)
%Y Complement of A004825.
%K nonn
%O 1,1
%A _N. J. A. Sloane_
|
