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,2

Links

Table of n, a(n) for n=1..120.

Formula

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

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 *)

Crossrefs

Cf. A184659, A000201 (lower Wythoff sequence).

Sequence in context: A079393 A047512 A026273 * A247910 A189407 A189518

Adjacent sequences: A184655 A184656 A184657 * A184659 A184660 A184661

Keyword

nonn

Author

Clark Kimberling, Jan 19 2011

Status

approved