A184746 floor(nr+h), where r=1+1/sqrt(5), h=1/2; complement of A184747.

1, 3, 4, 6, 7, 9, 10, 12, 13, 14, 16, 17, 19, 20, 22, 23, 25, 26, 27, 29, 30, 32, 33, 35, 36, 38, 39, 41, 42, 43, 45, 46, 48, 49, 51, 52, 54, 55, 56, 58, 59, 61, 62, 64, 65, 67, 68, 69, 71, 72, 74, 75, 77, 78, 80, 81, 82, 84, 85, 87, 88, 90, 91, 93, 94, 96, 97, 98, 100, 101, 103, 104, 106, 107, 109, 110, 111, 113, 114, 116, 117, 119, 120, 122, 123, 124, 126, 127, 129, 130, 132, 133, 135, 136, 137, 139, 140, 142, 143, 145, 146, 148, 149, 151, 152, 153, 155, 156, 158, 159, 161, 162, 164, 165, 166, 168, 169, 171, 172, 174

Offset

1,2

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A184747.

Sequence in context: A369856 A246443 A186495 * A186227 A258048 A185543

Adjacent sequences: A184743 A184744 A184745 * A184747 A184748 A184749

Keyword

nonn

Author

Clark Kimberling, Jan 20 2011

Status

approved