A184732 - OEIS

%I #5 Mar 30 2012 18:57:16

%S 1,2,4,6,7,9,11,12,14,15,17,19,20,22,24,25,27,28,30,32,33,35,36,38,40,

%T 41,43,45,46,48,49,51,53,54,56,57,59,61,62,64,66,67,69,70,72,74,75,77,

%U 79,80,82,83,85,87,88,90,91,93,95,96,98,100,101,103,104,106,108,109,111,113,114,116,117,119,121,122,124,125,127,129,130,132,134,135,137,138,140,142,143,145,146,148,150,151,153,155,156,158,159,161,163,164,166,168,169,171,172,174,176,177,179,180,182,184,185,187,189,190,192,193

%N floor(nr+h), where r=(1+sqrt(5))/2, h=-1/4; complement of A184733.

%F a(n)=floor(nr+h), where r=(1+sqrt(5))/2, h=-1/4.

%t r=(1+sqrt(5))/2, h=-1/4; s=r/(r-1);

%t Table[Floor[n*r+h],{n,1,120}]  (* A184732 *)

%t Table[Floor[n*s+h-h*s],{n,1,120}]  (*A184733 *)

%Y Cf. A184733, A184658.

%K nonn

%O 1,2

%A _Clark Kimberling_, Jan 20 2011