Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A203302
Cumulative sums of A201206.
1
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
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
KEYWORD
nonn
AUTHOR
Artur Jasinski, Jan 07 2012
STATUS
approved