%I #10 Apr 26 2023 09:56:40
%S 1,6,8,10,13,14,16,18,20,22,23,25,26,28,29,31,33,34,35,37,38,40,41,43,
%T 44,46,47,48,50,51,52,54,55,56,58,59,61,62,63,64,66,67,68,70,71,72,74,
%U 75,76,78,79,80,81,83,84,85,86,88,89,90,91,93,94,95,97,98,99,100,101,103,104,105,106,108,109,110,111,113,114,115,116,118,119,120,121,122,124,125,126,127,128,130,131,132,133,134,136,137,138,139
%N a(n) = n + floor(4*sqrt(n-1)); complement of A184112.
%t a=16; b=-16;
%t Table[n+Floor[(a*n+b)^(1/2)],{n,100}]
%t Table[n-1+Ceiling[(n^2-b)/a],{n,90}]
%Y Cf. A184112.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jan 09 2011