|
%I #14 Nov 21 2013 13:11:21
%S 4,11,18,25,30,32,37,44,51,56,63,67,70,74,82,88,89,93,100,107,108,119,
%T 130,135,137,142,144,145,149,154,156,161,163,168,180,182,187,191,193,
%U 198,200,205,206,219,226,233,240,245,252,254,256,259,261,266,271,278
%N Numbers that are the sum of 4 but no fewer positive cubes.
%H T. D. Noe, <a href="/A047703/b047703.txt">Table of n, a(n) for n=1..1000</a>
%t Select[Range[300], (pr = PowersRepresentations[#, 4, 3]; pr != {} && Count[pr, r_/; (Times @@ r) == 0] == 0)&] (* _Jean-François Alcover_, Jul 26 2011 *)
%Y Cf. A004215, A002376, A003327.
%K nonn
%O 1,1
%A Arlin Anderson (starship1(AT)gmail.com)
|
