|
%I #9 Mar 30 2012 18:57:13
%S 2,5,7,9,12,14,17,19,21,24,26,28,31,33,35,38,40,43,45,47,50,52,54,57,
%T 59,61,64,66,69,71,73,76,78,80,83,85,87,90,92,95,97,99,102,104,106,
%U 109,111,114,116,118,121,123,125,128,130,132,135,137,140,142,144,147,149,151,154,156,158,161,163,166,168,170,173,175,177,180,182,185,187,189,192,194,196,199,201,203,206,208,211,213,215,218,220,222,225,227,229,232,234,237,239,241,244,246,248,251,253,255
%N floor(n*s+h-h*s), where s=(3+sqrt(3))/2, h=-1/3. Complement of A184006.
%F a(n)=floor(n*s+h-h*s), where s=(3+sqrt(3))/2, h=-1/3.
%t r=3^(1/2); h=-1/3; s=r/(r-1);
%t Table[Floor[n*r+h],{n,1,120}] (* A184006 *)
%t Table[Floor[n*s+h-h*s],{n,1,120}] (*A184007 *)
%Y Cf. A184006.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 08 2011
|
