The On-Line Encyclopedia of Integer Sequences (OEIS)

Revision History for A184111 (Bold, blue-underlined text is an addition; faded, red-underlined text is a ~~deletion~~.)
Showing all changes.

A184111

a(n) = n + floor(4*sqrt(n-1)); complement of A184112.
(history; published version)

#10 by Wesley Ivan Hurt at Wed Apr 26 09:56:40 EDT 2023

STATUS

editing

approved

#9 by Wesley Ivan Hurt at Wed Apr 26 09:56:26 EDT 2023

NAME

a(n) = n + floor(4*sqrt(n-1)); complement of A184112.

FORMULA

a(n) = n + floor(4*sqrt(n-1))

STATUS

approved

editing

#8 by Russ Cox at Fri Mar 30 18:57:13 EDT 2012

AUTHOR

_Clark Kimberling (ck6(AT)evansville.edu), _, Jan 09 2011

Discussion

Fri Mar 30

18:57

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

#7 by Charles R Greathouse IV at Tue Jan 11 21:44:42 EST 2011

STATUS

proposed

approved

#6 by Clark Kimberling at Tue Jan 11 19:31:10 EST 2011

MATHEMATICA

Table[n-1+Ceiling[(n*n^2-b)/a], {n, 90}]

STATUS

approved

proposed

#5 by Charles R Greathouse IV at Mon Jan 10 20:58:00 EST 2011

STATUS

proposed

approved

#4 by Charles R Greathouse IV at Mon Jan 10 20:57:56 EST 2011

NAME

n+Floor[floor(4*sqrt(n-1)]); complement of A184112.

FORMULA

a(n) = n +Floor[ floor(4*sqrt(n-1)].)

MATHEMATICA

a=16; b=-16;

KEYWORD

nonn,new,easy

STATUS

approved

proposed

#3 by N. J. A. Sloane at Sun Jan 09 18:24:33 EST 2011

STATUS

proposed

approved

#2 by Clark Kimberling at Sun Jan 09 15:57:24 EST 2011

NAME

allocated for Clark Kimberling

n+Floor[4*sqrt(n-1)]; complement of A184112.

DATA

1, 6, 8, 10, 13, 14, 16, 18, 20, 22, 23, 25, 26, 28, 29, 31, 33, 34, 35, 37, 38, 40, 41, 43, 44, 46, 47, 48, 50, 51, 52, 54, 55, 56, 58, 59, 61, 62, 63, 64, 66, 67, 68, 70, 71, 72, 74, 75, 76, 78, 79, 80, 81, 83, 84, 85, 86, 88, 89, 90, 91, 93, 94, 95, 97, 98, 99, 100, 101, 103, 104, 105, 106, 108, 109, 110, 111, 113, 114, 115, 116, 118, 119, 120, 121, 122, 124, 125, 126, 127, 128, 130, 131, 132, 133, 134, 136, 137, 138, 139

OFFSET

1,2

FORMULA

a(n)=n+Floor[4*sqrt(n-1)].

MATHEMATICA

a=16; b=-16;

Table[n+Floor[(a*n+b)^(1/2)], {n, 100}]

Table[n-1+Ceiling[(n*n-b)/a], {n, 90}]

CROSSREFS

Cf. A184112.

KEYWORD

allocated

nonn

AUTHOR

Clark Kimberling (ck6(AT)evansville.edu), Jan 09 2011

STATUS

approved

proposed

#1 by Clark Kimberling at Sun Jan 09 15:14:14 EST 2011

NAME

allocated for Clark Kimberling

KEYWORD

allocated

STATUS

approved