login
Numbers that are the sum of 4 but no fewer positive cubes.
4

%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)