|
%I #7 Jul 09 2017 18:05:34
%S 4,6,8,10,12,14,16,18,19,21,23,25,26,28,30,31,33,35,36,38,40,41,43,45,
%T 46,48,49,51,52,54,56,57,59,60,62,63,65,66,68,69,71,72,74,75,77,78,80,
%U 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
%N Complement of A185603.
%H G. C. Greubel, <a href="/A185604/b185604.txt">Table of n, a(n) for n = 1..5000</a>
%t f[n_]=Floor[Floor[n^(5/2)]^(1/2)];
%t t1=Table[f[n],{n,1,120}];t1 (* A185603 *)
%t t2=Complement[Range[200], Table[f[n],{n,1,80}]];t2 (* A185604 *)
%Y Cf. A185603.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 31 2011
|
