login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

floor(n*s+h-h*s), where s=(3+sqrt(3))/2, h=-2/3; complement of A184654.
2

%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