|
%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
|
