|
%I #4 Mar 30 2012 18:57:16
%S 3,5,8,11,13,16,18,21,24,26,29,31,34,37,39,42,45,47,50,52,55,58,60,63,
%T 65,68,71,73,76,79,81,84,86,89,92,94,97,100,102,105,107,110,113,115,
%U 118,120,123,126,128,131,134,136,139,141,144,147,149,152,155,157,160,162,165,168,170,173,175,178,181,183,186,189,191,194,196,199,202,204,207,209,212,215,217,220,223,225,228,230,233,236,238,241,244,246,249,251,254,257,259,262,264,267,270,272,275,278,280,283,285,288,291,293,296,298,301
%N floor(n*s+h-h*s), where s=(3+sqrt(5))/2, h=-1/3; complement of A184658.
%F a(n)=floor(n*s+h-h*s), where s=(3+sqrt(5))/2, h=-1/3.
%t r=(1+5^(1/2))/2; h=-1/3; s=r/(r-1);
%t Table[Floor[n*r+h],{n,1,120}] (* A184658 *)
%t Table[Floor[n*s+h-h*s],{n,1,120}] (* A184659 *)
%Y Cf. A184658.
%K nonn
%O 1,1
%A _Clark Kimberling_, Jan 19 2011
|
