%I #5 Mar 30 2012 18:57:16
%S 3,5,7,10,12,14,17,19,21,24,26,29,31,33,36,38,40,43,45,48,50,52,55,57,
%T 59,62,64,66,69,71,74,76,78,81,83,85,88,90,92,95,97,100,102,104,107,
%U 109,111,114,116,118,121,123,126,128,130,133,135,137,140,142,145,147,149,152,154,156,159,161,163,166,168,171,173,175,178,180,182,185,187,189,192,194,197,199,201,204,206,208,211,213,215,218,220,223,225,227,230
%N floor(n*s+h-h*s), where s=(3+sqrt(3))/2, h=-1/2; complement of A184638.
%F floor(n*s+h-h*s), where s=(3+sqrt(3))/2, 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. A184638.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 19 2011
|