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

4, 11, 18, 25, 30, 32, 37, 44, 51, 56, 63, 67, 70, 74, 82, 88, 89, 93, 100, 107, 108, 119, 130, 135, 137, 142, 144, 145, 149, 154, 156, 161, 163, 168, 180, 182, 187, 191, 193, 198, 200, 205, 206, 219, 226, 233, 240, 245, 252, 254, 256, 259, 261, 266, 271, 278

Offset: 1

Author

Arlin Anderson (starship1(AT)gmail.com)

Keywords

• nonn

Links

• T. D. Noe, Table of n, a(n) for n=1..1000

Crossrefs

Cf. A004215, A002376, A003327.

Programs

Mathematica

Select[Range[300], (pr = PowersRepresentations[#, 4, 3]; pr != {} && Count[pr, r_/; (Times @@ r) == 0] == 0)&] (* Jean-François Alcover, Jul 26 2011 *)