

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

First differs from A025411 at a(80)=1044.  Ray Chandler, Feb 19 2005.


LINKS

Table of n, a(n) for n=1..80.


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]] (* JeanFrançois Alcover, Jul 31 2013 *)


CROSSREFS

Sequence in context: A004263 A004264 A025411 * A068805 A231088 A104023
Adjacent sequences: A025405 A025406 A025407 * A025409 A025410 A025411


KEYWORD

nonn


AUTHOR

David W. Wilson


EXTENSIONS

More terms from Ray Chandler, Feb 19 2005.


STATUS

approved



