# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a203302 Showing 1-1 of 1 %I A203302 #16 Mar 31 2012 10:22:24 %S A203302 1,3,6,9,12,16,20,24,29,34,38,44,49,55,61,67,73,79,86,92,99,106,113, %T A203302 121,128,136,144,152,160,168,176,185,193,202,211,220,229,238,248,257, %U A203302 267,277,286,296,306,317,327,337,348,358,369,380,391,402,413,424,436 %N A203302 Cumulative sums of A201206. %t A203302 ile = 0; ile1 = 0; aa = {}; d1 = -1; Do[ile = ile + 1; %t A203302 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 A203302 nonn %O A203302 1,2 %A A203302 _Artur Jasinski_, Jan 07 2012 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE