Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #4 Mar 30 2012 18:57:16
%S 3,5,8,10,12,15,17,19,22,24,26,29,31,34,36,38,41,43,45,48,50,52,55,57,
%T 60,62,64,67,69,71,74,76,78,81,83,86,88,90,93,95,97,100,102,105,107,
%U 109,112,114,116,119,121,123,126,128,131,133,135,138,140,142,145,147,149,152,154,157,159,161,164,166,168,171,173,175,178,180,183,185,187,190,192,194,197,199,202,204,206,209,211,213,216,218,220,223,225,228,230
%N floor(n*s+h-h*s), where s=(3+sqrt(3))/2, h=-2/3; complement of A184654.
%F a(n)=floor(n*s+h-h*s), where s=(3+sqrt(3))/2, h=-2/3.
%t r=3^(1/2); h=-2/3; s=r/(r-1);
%t Table[Floor[n*r+h],{n,1,120}] (* A184654 *)
%t Table[Floor[n*s+h-h*s],{n,1,120}] (* A184655 *)
%Y Cf. A184654, A184007.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 19 2011