A203302 - OEIS

%I #16 Mar 31 2012 10:22:24

%S 1,3,6,9,12,16,20,24,29,34,38,44,49,55,61,67,73,79,86,92,99,106,113,

%T 121,128,136,144,152,160,168,176,185,193,202,211,220,229,238,248,257,

%U 267,277,286,296,306,317,327,337,348,358,369,380,391,402,413,424,436

%N Cumulative sums of A201206.

%t ile = 0; ile1 = 0; aa = {}; d1 = -1; Do[ile = ile + 1;

%t 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

%K nonn

%O 1,2

%A _Artur Jasinski_, Jan 07 2012