The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A201206

(Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing entries 1-10 | older changes

A201206

Number of successive decreasing values of round(n^(2/3))^3 - n^2.
(history; published version)

#23 by Bruno Berselli at Fri Jun 06 03:34:19 EDT 2014

STATUS

editing

approved

#22 by Bruno Berselli at Fri Jun 06 03:34:15 EDT 2014

FORMULA

a(n) = floor((n+1/2)^(3/2)) - floor((n-1/2)^(3/2)). _- _Robert Israel_, Jun 06 2014

STATUS

proposed

editing

#21 by Robert Israel at Fri Jun 06 03:31:54 EDT 2014

STATUS

editing

proposed

#20 by Robert Israel at Fri Jun 06 03:31:45 EDT 2014

LINKS

Robert Israel, <a href="/A201206/b201206.txt">Table of n, a(n) for n = 1..10000</a>

FORMULA

a(n) = floor((n+1/2)^(3/2)) - floor((n-1/2)^(3/2)). Robert Israel, Jun 06 2014

MAPLE

A:= n -> floor((n+1/2)^(3/2)) - floor((n-1/2)^(3/2)):

seq(A(n), n=1..100); # Robert Israel, Jun 06 2014

STATUS

approved

editing

#19 by Russ Cox at Sat Mar 31 10:22:18 EDT 2012

AUTHOR

_Artur Jasinski (grafix(AT)csl.pl), _, Jan 07 2012

Discussion

Sat Mar 31

10:22

OEIS Server: https://oeis.org/edit/global/339

#18 by T. D. Noe at Wed Jan 11 12:05:59 EST 2012

STATUS

editing

approved

#17 by T. D. Noe at Wed Jan 11 12:05:53 EST 2012

NAME

Number of successive decreasing values of round(n^(2/3))^3 - n^2.

DATA

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, 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, 12, 12, 12, 12, 12, 12, 12, 12, 12, 13, 12, 13, 13, 13, 13, 13, 13, 13, 13, 13, 14, 13, 14

STATUS

proposed

editing

#16 by Artur Jasinski at Sat Jan 07 08:44:53 EST 2012

STATUS

editing

proposed

#15 by Artur Jasinski at Sat Jan 07 08:33:56 EST 2012

NAME

allocated for Artur JasinskiNumber of successive decreasing values of round(n^(2/3))^3 - n^2

DATA

OFFSET

1,2

MATHEMATICA

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

KEYWORD

allocated

nonn

AUTHOR

Artur Jasinski (grafix(AT)csl.pl), Jan 07 2012

STATUS

approved

editing

#14 by Artur Jasinski at Sat Jan 07 08:33:56 EST 2012

NAME

allocated for Artur Jasinski

KEYWORD

recycled

allocated