%I #12 Jul 31 2013 05:56:47
%S 100,161,198,217,224,252,289,308,315,350,369,376,379,406,413,416,432,
%T 435,442,477,496,503,533,540,548,559,568,585,587,594,604,611,624,631,
%U 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
%N Numbers that are the sum of 4 distinct positive cubes in exactly 1 way.
%C First differs from A025411 at a(80)=1044. - _Ray Chandler_, Feb 19 2005.
%t 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 *)
%K nonn
%O 1,1
%A _David W. Wilson_
%E More terms from _Ray Chandler_, Feb 19 2005.