|
%I #11 Jul 09 2017 17:08:04
%S 3,5,7,8,10,11,13,14,16,17,19,20,21,23,24,25,27,28,29,31,32,33,34,36,
%T 37,38,39,41,42,43,45,46,47,48,50,51,52,53,55,56,57,58,60,61,62,63,64,
%U 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
%N Numbers not of the form floor(n^(3/2))-floor(n^(1/2))-n; complement of A185601.
%H G. C. Greubel, <a href="/A185602/b185602.txt">Table of n, a(n) for n = 1..5000</a>
%t f[n_]=Floor[n^(3/2)]-Floor[n^(1/2)]-n;
%t Table[f[n],{n,3,80}] (* A185601 *)
%t t2=Complement[Range[150], Table[f[n],{n,1,80}]];t2 (* A185602 *)
%Y Cf. A185599, A185600, A185601.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Jan 31 2011
|
