OFFSET
1,1
COMMENTS
First differs from A025411 at a(80)=1044. - Ray Chandler, Feb 19 2005.
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
More terms from Ray Chandler, Feb 19 2005.
STATUS
approved