OFFSET
1,1
COMMENTS
A025456(a(n)) = 1. - Reinhard Zumkeller, Apr 23 2009
LINKS
T. D. Noe, Table of n, a(n) for n = 1..1000
Eric Weisstein's World of Mathematics, Cubic Number.
MATHEMATICA
Reap[For[n = 1, n <= 500, n++, pr = Select[ PowersRepresentations[n, 3, 3], Times @@ # != 0 &]; If[pr != {} && Length[pr] == 1, Print[n, pr]; Sow[n]]]][[2, 1]] (* Jean-François Alcover, Jul 31 2013 *)
CROSSREFS
KEYWORD
nonn,easy,nice
AUTHOR
STATUS
approved