|
%I #4 Mar 30 2012 18:57:16
%S 2,4,6,9,11,13,16,18,20,23,25,28,30,32,35,37,39,42,44,46,49,51,54,56,
%T 58,61,63,65,68,70,73,75,77,80,82,84,87,89,91,94,96,99,101,103,106,
%U 108,110,113,115,117,120,122,125,127,129,132,134,136,139,141,143,146,148,151,153,155,158,160,162,165,167,170,172,174,177,179,181,184,186,188,191,193,196,198,200,203,205,207,210,212,214,217,219,222,224,226,229,231,233,236,238,240,243,245,248,250,252,255,257,259,262,264,267,269,271,274,276,278,281,283
%N floor((n-h)*s+h), where s=(3+sqrt(3))/2 and h=1/4; complement of A184626.
%F a(n)=floor((n-h)*s+h), where s=(3+sqrt(3))/2 and h=1/4.
%t r=3^(1/2); h=1/4; s=r/(r-1);
%t Table[Floor[n*r+h],{n,1,120}] (* A184626 *)
%t Table[Floor[n*s+h-h*s],{n,1,120}] (* A184627 *)
%Y Cf. A184618, A184626.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 18 2011
|
