A047704 Numbers that are the sum of 5 but no fewer positive cubes.
5, 12, 19, 26, 31, 33, 38, 40, 45, 52, 57, 59, 68, 71, 75, 78, 83, 90, 94, 96, 97, 101, 109, 115, 116, 120, 131, 138, 143, 146, 150, 157, 162, 164, 169, 171, 172, 176, 181, 183, 188, 194, 195, 199, 201, 207, 208, 209, 213, 214, 220, 227, 234, 241, 246, 248
Offset: 1
Keywords
Links
- T. D. Noe, Table of n, a(n) for n=1..1000
Programs
-
Mathematica
Select[Range[300], (pr = PowersRepresentations[#, 5, 3]; pr != {} && Count[pr, r_/; (Times @@ r) == 0] == 0)&] (* Jean-François Alcover, Jul 26 2011 *)
Comments