login
n+floor(2*sqrt(n-1)); complement of A035106.
0

%I #6 Mar 30 2012 18:57:13

%S 1,4,5,7,9,10,11,13,14,16,17,18,19,21,22,23,25,26,27,28,29,31,32,33,

%T 34,36,37,38,39,40,41,43,44,45,46,47,49,50,51,52,53,54,55,57,58,59,60,

%U 61,62,64,65,66,67,68,69,70,71,73,74,75,76,77,78,79,81,82,83,84,85,86,87,88,89,91,92,93,94,95,96,97,98,100,101,102,103,104,105,106,107,108,109,111,112,113,114,115,116,117,118,119

%N n+floor(2*sqrt(n-1)); complement of A035106.

%t a=4; b=-4;

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

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

%Y Cf. A035106.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Jan 07 2011