A184582 floor[(n+1/5)r] where r=(1+sqrt(5))/2; complement of A184583.

1, 3, 5, 6, 8, 10, 11, 13, 14, 16, 18, 19, 21, 22, 24, 26, 27, 29, 31, 32, 34, 35, 37, 39, 40, 42, 44, 45, 47, 48, 50, 52, 53, 55, 56, 58, 60, 61, 63, 65, 66, 68, 69, 71, 73, 74, 76, 77, 79, 81, 82, 84, 86, 87, 89, 90, 92, 94, 95, 97, 99, 100, 102, 103, 105, 107, 108, 110, 111, 113, 115, 116, 118, 120, 121, 123, 124, 126, 128, 129, 131, 133, 134, 136, 137, 139, 141, 142, 144, 145, 147, 149, 150, 152, 154, 155, 157, 158, 160, 162, 163, 165, 166, 168, 170, 171, 173, 175, 176, 178, 179, 181, 183, 184, 186, 188, 189, 191, 192, 194

Offset: 1

Author

Clark Kimberling, Jan 17 2011

Keywords

• nonn

Crossrefs

Cf. A184583.

Programs

Mathematica

r=(1+5^(1/2))/2;c=-1/5;s=r/(r-1);
Table[Floor[n*r-c*r],{n,1,120}]  (* A184582 *)
Table[Floor[n*s+c*s],{n,1,120}]  (* A184583 *)

Formula

a(n)=floor[(n+1/5)r] where r=(1+sqrt(5))/2.