A185598 Numbers not of the form floor(n^(3/2)-n^(1/2)); complement of A185597.

2, 4, 5, 7, 9, 10, 11, 13, 14, 16, 17, 18, 20, 21, 22, 23, 25, 26, 27, 29, 30, 31, 32, 34, 35, 36, 37, 39, 40, 41, 42, 44, 45, 46, 47, 49, 50, 51, 52, 53, 55, 56, 57, 58, 59, 61, 62, 63, 64, 66, 67, 68, 69, 70, 71, 73, 74, 75, 76, 77, 79, 80, 81, 82, 83, 85

Offset

1,1

Links

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

Mathematica

f[n_]=Floor[n^(3/2)-n^(1/2)];
Table[f[n], {n, 1, 120}]  (* A185597 *)
t2=Complement[Range[150], Table[f[n], {n, 1, 80}]]; t2  (* A185598 *)

Crossrefs

Cf. A185597.

Sequence in context: A202129 A288217 A026457 * A185550 A189629 A063113

Adjacent sequences: A185595 A185596 A185597 * A185599 A185600 A185601

Keyword

nonn

Author

Clark Kimberling, Jan 31 2011

Status

approved