|
%I #7 Mar 30 2012 18:57:13
%S 2,4,5,7,8,9,11,12,13,14,16,17,18,19,20,22,23,24,25,26,28,29,30,31,32,
%T 33,34,36,37,38,39,40,41,42,44,45,46,47,48,49,50,51,53,54,55,56,57,58,
%U 59,60,61,63,64,65,66,67,68,69,70,71,72,74,75,76,77,78,79,80,81,82,83,84,86,87,88,89,90,91,92,93,94,95,96,98,99,100,101,102,103,104,105,106,107,108,109,110,112,113,114,115
%N n+floor(sqrt(7n/3)); complement of A184009.
%t a=7/3; b=0;
%t Table[n+Floor[(a*n+b)^(1/2)],{n,100}]
%t Table[n-1+Ceiling[(n*n-b)/a],{n,80}]
%Y Cf. A184009.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Jan 08 2011
|
