A185546 a(n) = floor((1/2)*(n+1)^(3/2)); complement of A185547.

1, 2, 4, 5, 7, 9, 11, 13, 15, 18, 20, 23, 26, 29, 32, 35, 38, 41, 44, 48, 51, 55, 58, 62, 66, 70, 74, 78, 82, 86, 90, 94, 99, 103, 108, 112, 117, 121, 126, 131, 136, 140, 145, 150, 155, 161, 166, 171, 176, 182, 187, 192, 198, 203, 209, 215, 220, 226, 232, 238, 244, 250

Offset

1,2

Links

G. C. Greubel, Table of n, a(n) for n = 1..5000

Formula

a(n) = floor((1/2)*(n+1)^(3/2)).

Mathematica

f[n_] = Floor[(1/2)*(n+1)^(3/2)];
t1=Table[f[n], {n, 1, 90}]; t1   (* A185546 *)
t2=Complement[Range[200], Table[f[n], {n, 1, 80}]]; t2  (* 185547 *)

Prog

(PARI) for(n=1, 50, print1(floor((1/2)*(n+1)^(3/2)), ", ")) \\ G. C. Greubel, Jul 07 2017

Crossrefs

Cf. A185547.

Sequence in context: A295556 A047893 A125552 * A066026 A112671 A234369

Adjacent sequences: A185543 A185544 A185545 * A185547 A185548 A185549

Keyword

nonn

Author

Clark Kimberling, Jan 30 2011

Status

approved