|
%I #12 Mar 30 2012 18:57:13
%S 1,3,4,6,8,10,11,13,15,16,18,20,22,23,25,27,29,30,32,34,36,37,39,41,
%T 42,44,46,48,49,51,53,55,56,58,60,62,63,65,67,68,70,72,74,75,77,79,81,
%U 82,84,86,88,89,91,93,94,96,98,100,101,103,105,107,108,110
%N floor(nr+h), where r=sqrt(3), h=-1/3; complement of A184007.
%F a(n)=floor(nr+h), where r=sqrt(3), h=-1/3
%t r=3^(1/2); h=-1/3; s=r/(r-1);
%t Table[Floor[n*r+h],{n,1,120}] (* A184006 *)
%t Table[Floor[n*s+h-h*s],{n,1,120}] (*A184007 *)
%Y Cf. A184007.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jan 08 2011
|
