cp's OEIS Frontend

A184627 floor((n-h)*s+h), where s=(3+sqrt(3))/2 and h=1/4; complement of A184626.

%I A184627 #4 Mar 30 2012 18:57:16
%S A184627 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 A184627 58,61,63,65,68,70,73,75,77,80,82,84,87,89,91,94,96,99,101,103,106,
%U A184627 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 A184627 floor((n-h)*s+h), where s=(3+sqrt(3))/2 and h=1/4; complement of A184626.
%F A184627 a(n)=floor((n-h)*s+h), where s=(3+sqrt(3))/2 and h=1/4.
%t A184627 r=3^(1/2); h=1/4; s=r/(r-1);
%t A184627 Table[Floor[n*r+h],{n,1,120}]  (* A184626 *)
%t A184627 Table[Floor[n*s+h-h*s],{n,1,120}]  (* A184627 *)
%Y A184627 Cf. A184618, A184626.
%K A184627 nonn
%O A184627 1,1
%A A184627 _Clark Kimberling_, Jan 18 2011