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

3, 5, 7, 8, 10, 11, 13, 14, 16, 17, 19, 20, 21, 23, 24, 25, 27, 28, 29, 31, 32, 33, 34, 36, 37, 38, 39, 41, 42, 43, 45, 46, 47, 48, 50, 51, 52, 53, 55, 56, 57, 58, 60, 61, 62, 63, 64, 66, 67, 68, 69, 70, 72, 73, 74, 75, 76, 78, 79, 80, 81, 82, 84, 85, 86, 87, 88, 90, 91, 92, 93, 94, 96, 97, 98, 99, 100, 102, 103, 104, 105, 106, 107, 109, 110, 111, 112, 113, 114, 116, 117, 118, 119, 120, 121, 123, 124, 125, 126, 127, 128, 130, 131, 132, 133, 134, 135, 137, 138, 139, 140, 141, 142, 143, 145

Offset

1,1

Links

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

Mathematica

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

Crossrefs

Cf. A185599, A185600, A185601.

Sequence in context: A351076 A171508 A049068 * A225554 A257019 A071977

Adjacent sequences: A185599 A185600 A185601 * A185603 A185604 A185605

Keyword

nonn,easy

Author

Clark Kimberling, Jan 31 2011

Status

approved