|
|
A025408
|
|
Numbers that are the sum of 4 distinct positive cubes in exactly 1 way.
|
|
1
|
|
|
100, 161, 198, 217, 224, 252, 289, 308, 315, 350, 369, 376, 379, 406, 413, 416, 432, 435, 442, 477, 496, 503, 533, 540, 548, 559, 568, 585, 587, 594, 604, 611, 624, 631, 646, 650, 665, 672, 685, 692, 702, 709, 711, 728, 737, 748, 756, 763, 765, 793, 800, 802, 819, 821, 828, 854, 861, 863, 864, 880, 882, 883, 889, 890, 917, 919, 920, 926, 927, 945, 946, 954, 973, 980, 981, 988, 1007, 1010, 1017, 1044
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MATHEMATICA
|
Reap[For[n = 1, n <= 1200, n++, pr = Select[ PowersRepresentations[n, 4, 3], Times @@ # != 0 && Length[#] == Length[Union[#]] &]; If[pr != {} && Length[pr] == 1, Print[n, pr]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jul 31 2013 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|