A184638 - OEIS

%I #4 Mar 30 2012 18:57:16

%S 1,2,4,6,8,9,11,13,15,16,18,20,22,23,25,27,28,30,32,34,35,37,39,41,42,

%T 44,46,47,49,51,53,54,56,58,60,61,63,65,67,68,70,72,73,75,77,79,80,82,

%U 84,86,87,89,91,93,94,96,98,99,101,103,105,106,108,110,112,113,115,117,119,120,122,124,125,127,129,131,132,134,136,138,139,141,143,144,146,148,150,151,153,155,157,158,160,162,164,165,167,169,170,172,174,176,177,179,181,183,184,186,188,190,191,193,195,196,198,200

%N floor(nr+h), where r=sqrt(3), h=-1/2; complement of A184653.

%F a(n)=floor(nr+h), where r=sqrt(3), h=-1/2.

%t r=3^(1/2); h=-1/2; s=r/(r-1);

%t Table[Floor[n*r+h],{n,1,120}]  (* A184638 *)

%t Table[Floor[n*s+h-h*s],{n,1,120}]  (*A184653 *)

%Y Cf. A184653.

%K nonn

%O 1,2

%A _Clark Kimberling_, Jan 19 2011