A184102 - OEIS

%I #10 Jun 21 2015 13:55:29

%S 5,7,9,12,13,15,17,19,21,22,24,25,27,28,30,32,33,34,36,37,39,40,42,43,

%T 45,46,47,49,50,51,53,54,55,57,58,60,61,62,63,65,66,67,69,70,71,73,74,

%U 75,77,78,79,80,82,83,84,85,87,88,89,90,92,93,94,96,97,98,99,100,102,103,104,105,107,108,109,110,112,113,114,115,117,118,119,120,121,123,124,125,126,127,129,130,131,132,133,135,136,137,138,140

%N n+floor(4*sqrt(n)); complement of A184103.

%F a(n)=n+floor(4*sqrt(n)).

%t a=16; b=0;

%t Table[n+Floor[(a*n+b)^(1/2)],{n,100}]

%t Table[n-1+Ceiling[(n*n-b)/a],{n,80}]

%t Table[n+Floor[4Sqrt[n]],{n,100}] (* _Harvey P. Dale_, Jun 21 2015 *)

%Y Cf. A184103.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Jan 09 2011