|
%I #4 Mar 30 2012 18:57:16
%S 3,6,8,11,13,16,19,21,24,26,29,32,34,37,40,42,45,47,50,53,55,58,61,63,
%T 66,68,71,74,76,79,81,84,87,89,92,95,97,100,102,105,108,110,113,116,
%U 118,121,123,126,129,131,134,136,139,142,144,147,150,152,155,157,160,163,165,168,170,173,176,178,181,184,186,189,191,194,197,199,202,205,207,210,212,215,218,220,223,225,228,231,233,236,239,241,244,246,249,252,254,257,259,262,265,267,270,273,275,278,280,283,286,288,291,294,296,299,301,304,307,309,312,314
%N floor(n*s+h-h*s), where s=(3+sqrt(5))/2, h=-1/2; complement of A184656.
%F a(n)=floor(n*s+h-h*s), where s=(3+sqrt(5))/2, h=-1/2.
%t r=(1+5^(1/2))/2; h=-1/2; s=r/(r-1);
%t Table[Floor[n*r+h],{n,1,120}] (* A184656 *)
%t Table[Floor[n*s+h-h*s],{n,1,120}] (* A184657 *)
%Y Cf. A184656, A001950 (upper Wythoff sequence).
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 19 2011
|
