|
%I #4 Mar 30 2012 18:57:17
%S 1,3,4,6,7,9,10,12,13,14,16,17,19,20,22,23,25,26,27,29,30,32,33,35,36,
%T 38,39,41,42,43,45,46,48,49,51,52,54,55,56,58,59,61,62,64,65,67,68,69,
%U 71,72,74,75,77,78,80,81,82,84,85,87,88,90,91,93,94,96,97,98,100,101,103,104,106,107,109,110,111,113,114,116,117,119,120,122,123,124,126,127,129,130,132,133,135,136,137,139,140,142,143,145,146,148,149,151,152,153,155,156,158,159,161,162,164,165,166,168,169,171,172,174
%N floor(nr+h), where r=1+1/sqrt(5), h=1/2; complement of A184747.
%F a(n)=floor(nr+h), where r=1+1/sqrt(5), h=1/2.
%t r=1+5^(-1/2);vh=1/2;vs=r/(r-1);
%t Table[Floor[n*r+h],{n,1,120}] (* A184746 *)
%t Table[Floor[n*s+h-h*s],{n,1,120}] (* A184747 *)
%Y Cf. A184747.
%K nonn
%O 1,2
%A _Clark Kimberling_, Jan 20 2011
|
