OFFSET
0,3
MATHEMATICA
n3ts[n_]:=Module[{n3=n^3, a, b, sr}, sr=Sqrt[n3]; a=(Floor[sr])^2; b=(Ceiling[ sr])^2; If[n3-a<b-n3, n3*a, n3*b]]; Array[n3ts, 30, 0] (* Harvey P. Dale, Nov 27 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Oct 29 2002
STATUS
approved