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

1, 2, 4, 5, 7, 9, 10, 12, 14, 15, 17, 18, 20, 22, 23, 25, 27, 28, 30, 31, 33, 35, 36, 38, 39, 41, 43, 44, 46, 48, 49, 51, 52, 54, 56, 57, 59, 60, 62, 64, 65, 67, 69, 70, 72, 73, 75, 77, 78, 80, 82, 83, 85, 86, 88, 90, 91, 93, 94, 96, 98, 99, 101, 103, 104, 106, 107, 109, 111, 112, 114, 115, 117, 119, 120, 122, 124, 125, 127, 128, 130, 132, 133, 135, 137, 138, 140, 141, 143, 145, 146, 148, 149, 151, 153, 154, 156, 158, 159, 161, 162, 164, 166, 167, 169, 171, 172, 174, 175, 177, 179, 180, 182, 183, 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/2.

Mathematica

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

Crossrefs

Cf. A184657, A000201 (lower Wythoff sequence).

Sequence in context: A047497 A004956 A026351 * A286989 A226720 A047212

Adjacent sequences: A184653 A184654 A184655 * A184657 A184658 A184659

Keyword

nonn

Author

Clark Kimberling, Jan 19 2011

Status

approved