login
A185546
a(n) = floor((1/2)*(n+1)^(3/2)); complement of A185547.
2
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 30 2011
STATUS
approved