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,2

Links

Table of n, a(n) for n=1..57.

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

Sequence in context: A084515 A084525 A130248 * A214050 A260706 A194199

Adjacent sequences: A203299 A203300 A203301 * A203303 A203304 A203305

Keyword

nonn

Author

Artur Jasinski, Jan 07 2012

Status

approved