A185604 Complement of A185603.

4, 6, 8, 10, 12, 14, 16, 18, 19, 21, 23, 25, 26, 28, 30, 31, 33, 35, 36, 38, 40, 41, 43, 45, 46, 48, 49, 51, 52, 54, 56, 57, 59, 60, 62, 63, 65, 66, 68, 69, 71, 72, 74, 75, 77, 78, 80, 81, 83, 84, 86, 87, 89, 90, 92, 93, 95, 96, 98, 99, 101, 102, 104, 105, 107, 108, 109, 111, 112, 114, 115, 117, 118, 120, 121, 122

Offset

1,1

Links

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

Mathematica

f[n_]=Floor[Floor[n^(5/2)]^(1/2)];
t1=Table[f[n], {n, 1, 120}]; t1  (* A185603 *)
t2=Complement[Range[200], Table[f[n], {n, 1, 80}]]; t2  (* A185604 *)

Crossrefs

Cf. A185603.

Sequence in context: A039767 A176235 A201221 * A054023 A330948 A324705

Adjacent sequences: A185601 A185602 A185603 * A185605 A185606 A185607

Keyword

nonn

Author

Clark Kimberling, Jan 31 2011

Status

approved