A185547 Numbers not of the form floor((1/2)(n+1)^(3/2)); complement of A185546.

3, 6, 8, 10, 12, 14, 16, 17, 19, 21, 22, 24, 25, 27, 28, 30, 31, 33, 34, 36, 37, 39, 40, 42, 43, 45, 46, 47, 49, 50, 52, 53, 54, 56, 57, 59, 60, 61, 63, 64, 65, 67, 68, 69, 71, 72, 73, 75, 76, 77, 79, 80, 81, 83, 84, 85, 87, 88, 89, 91, 92, 93, 95, 96, 97, 98, 100, 101, 102, 104, 105

Offset

1,1

Links

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

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  (* A185547 *)

Crossrefs

Cf. A185546.

Sequence in context: A286754 A186387 A258050 * A112234 A189467 A023983

Adjacent sequences: A185544 A185545 A185546 * A185548 A185549 A185550

Keyword

nonn

Author

Clark Kimberling, Jan 30 2011

Status

approved