login
n + floor(sqrt(e*n)); complement of A184015.
1

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

%S 2,4,5,7,8,10,11,12,13,15,16,17,18,20,21,22,23,24,26,27,28,29,30,32,

%T 33,34,35,36,37,39,40,41,42,43,44,45,47,48,49,50,51,52,53,54,56,57,58,

%U 59,60,61,62,63,65,66,67,68,69,70,71,72,73,74,76,77,78,79,80,81,82,83,84,85,87,88,89,90,91,92,93,94,95,96,98,99,100,101,102,103,104,105,106,107,108,109,111,112,113,114,115,116,117,118,119,120,121,122,124,125,126,127,128,129,130,131,132,133,134,135,136,138

%N n + floor(sqrt(e*n)); complement of A184015.

%F a(n) = n + floor(sqrt(e*n))

%t a=E; b=0;

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

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

%Y Cf. A184015.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Jan 09 2011