OFFSET
1,3
COMMENTS
MATHEMATICA
lst={}; Do[a=(x=n^2)-(y=Floor[(n^2)^(1/3)]^3); If[a<=416, AppendTo[lst, a]], {n, 8!}]; Take[Union@lst, 100]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Sep 13 2009
EXTENSIONS
Minor edits by N. J. A. Sloane, Oct 24 2009
Definition corrected by Max Alekseyev, Jun 19 2011
STATUS
approved