OFFSET
1,2
MATHEMATICA
ile = 0; ile1 = 0; aa = {}; d1 = -1; Do[ile = ile + 1;
xx = Round[y^(2/3)]; dd = xx^3 - y^2; If[dd > 0 && d1 < 0, ile1 = ile1 + ile; AppendTo[aa, ile1]; ile = 0]; d1 = dd, {y, 2, 1000}]; aa
CROSSREFS
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 07 2012
STATUS
approved