# Greetings from The On-Line Encyclopedia of Integer Sequences! http://oeis.org/ Search: id:a201206 Showing 1-1 of 1 %I A201206 #23 Jun 06 2014 03:34:19 %S A201206 1,2,3,3,3,4,4,4,5,5,4,6,5,6,6,6,6,6,7,6,7,7,7,8,7,8,8,8,8,8,8,9,8,9, %T A201206 9,9,9,9,10,9,10,10,9,10,10,11,10,10,11,10,11,11,11,11,11,11,12,11,11, %U A201206 12,12,12,12,12,12,12,12,12,13,12,13,13,13,13,13 %N A201206 Number of successive decreasing values of round(n^(2/3))^3 - n^2. %H A201206 Robert Israel, Table of n, a(n) for n = 1..10000 %F A201206 a(n) = floor((n+1/2)^(3/2)) - floor((n-1/2)^(3/2)). - _Robert Israel_, Jun 06 2014 %p A201206 A:= n -> floor((n+1/2)^(3/2)) - floor((n-1/2)^(3/2)): %p A201206 seq(A(n),n=1..100); # _Robert Israel_, Jun 06 2014 %t A201206 ile = 0; aa = {}; d1 = -1; Do[ile = ile + 1; xx = Round[y^(2/3)]; dd = xx^3 - y^2; If[dd > 0 && d1 < 0, AppendTo[aa, ile]; ile = 0]; d1 = dd, {y, 2, 1000}]; aa %K A201206 nonn %O A201206 1,2 %A A201206 _Artur Jasinski_, Jan 07 2012 # Content is available under The OEIS End-User License Agreement: http://oeis.org/LICENSE