OFFSET
0,3
LINKS
Harvey P. Dale, Table of n, a(n) for n = 0..1000
MATHEMATICA
ntnc[n_]:=Module[{n2=n^2, a, b, a3, b3}, a=Floor[Power[n2, (3)^-1]]; b=a+1; a3=a^3; b3=b^3; If[n2-a3<b3-n2, n2 a3, n2 b3]]; Array[ntnc, 40, 0] (* Harvey P. Dale, Jan 06 2012 *)
nic[n_]:=Module[{n2=n^2, c}, c=Floor[Surd[n2, 3]]; n2*Nearest[{c^3, (c+1)^3}, n2]]; Join[{0, 1}, Array[nic, 40, 2]]//Flatten//Union (* Harvey P. Dale, May 13 2020 *)
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
Reinhard Zumkeller, Oct 29 2002
STATUS
approved