|
%I #4 Mar 30 2012 18:57:17
%S 2,5,7,9,11,13,16,18,20,22,24,27,29,31,33,35,38,40,42,44,46,49,51,53,
%T 55,57,60,62,64,66,69,71,73,75,77,80,82,84,86,88,91,93,95,97,99,102,
%U 104,106,108,110,113,115,117,119,121,124,126,128,130,133,135,137,139,141,144,146,148,150,152,155,157,159,161,163,166,168,170,172,174,177,179,181,183,186,188,190,192,194,197,199,201,203,205,208,210,212,214,216,219,221,223,225,227,230,232,234,236,238,241,243,245,247,250,252,254,256,258,261,263,265
%N floor(n*s+h-h*s), where s=-1+2^(3/2), h=-1/2; complement of A184736.
%F a(n)=floor(n*s+h-h*s), where s=-1+2^(3/2), h=-1/2.
%t r=2^(3/2)-1; h=-1/2; s=r/(r-1);
%t Table[Floor[n*r+h],{n,1,120}] (* A184736 *)
%t Table[Floor[n*s+h-h*s],{n,1,120}] (* A184737 *)
%Y Cf. A184736.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 20 2011
|
