A203302 Cumulative sums of A201206.

1, 3, 6, 9, 12, 16, 20, 24, 29, 34, 38, 44, 49, 55, 61, 67, 73, 79, 86, 92, 99, 106, 113, 121, 128, 136, 144, 152, 160, 168, 176, 185, 193, 202, 211, 220, 229, 238, 248, 257, 267, 277, 286, 296, 306, 317, 327, 337, 348, 358, 369, 380, 391, 402, 413, 424, 436

Offset: 1

Author

Artur Jasinski, Jan 07 2012

Keywords

• nonn

Programs

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