A184658 floor(nr+h), where r=(1+sqrt(5))/2, h=-1/3; complement of A184659.

1, 2, 4, 6, 7, 9, 10, 12, 14, 15, 17, 19, 20, 22, 23, 25, 27, 28, 30, 32, 33, 35, 36, 38, 40, 41, 43, 44, 46, 48, 49, 51, 53, 54, 56, 57, 59, 61, 62, 64, 66, 67, 69, 70, 72, 74, 75, 77, 78, 80, 82, 83, 85, 87, 88, 90, 91, 93, 95, 96, 98, 99, 101, 103, 104, 106, 108, 109, 111, 112, 114, 116, 117, 119, 121, 122, 124, 125, 127, 129, 130, 132, 133, 135, 137, 138, 140, 142, 143, 145, 146, 148, 150, 151, 153, 154, 156, 158, 159, 161, 163, 164, 166, 167, 169, 171, 172, 174, 176, 177, 179, 180, 182, 184, 185, 187, 188, 190, 192, 193

Offset: 1

Author

Clark Kimberling, Jan 19 2011

Keywords

• nonn

Crossrefs

Cf. A184659, A000201 (lower Wythoff sequence).

Programs

Mathematica

r=(1+5^(1/2))/2; h=-1/3; s=r/(r-1);
Table[Floor[n*r+h],{n,1,120}]  (* A184658 *)
Table[Floor[n*s+h-h*s],{n,1,120}]  (* A184659 *)

Formula

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