login
A185604
Complement of A185603.
2
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
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
KEYWORD
nonn
AUTHOR
Clark Kimberling, Jan 31 2011
STATUS
approved