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
Keywords
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