A184584 floor[(n-1/3)r], where r=sqrt(5); complement of A184585.

1, 3, 5, 8, 10, 12, 14, 17, 19, 21, 23, 26, 28, 30, 32, 35, 37, 39, 41, 43, 46, 48, 50, 52, 55, 57, 59, 61, 64, 66, 68, 70, 73, 75, 77, 79, 81, 84, 86, 88, 90, 93, 95, 97, 99, 102, 104, 106, 108, 111, 113, 115, 117, 120, 122, 124, 126, 128, 131, 133, 135, 137, 140, 142, 144, 146, 149, 151, 153, 155, 158, 160, 162, 164, 166, 169, 171, 173, 175, 178, 180, 182, 184, 187, 189, 191, 193, 196, 198, 200, 202, 204, 207, 209, 211, 213, 216, 218, 220, 222, 225, 227, 229, 231, 234, 236, 238, 240, 242, 245, 247, 249, 251, 254, 256, 258, 260, 263, 265, 267

Offset

1,2

Links

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

Formula

a(n)=floor[(n-1/3)r], where r=sqrt(5).

Mathematica

r=5^(1/2); c=1/3; s=r/(r-1);
Table[Floor[n*r-c*r], {n, 1, 120}]  (* A184584 *)
Table[Floor[n*s+c*s], {n, 1, 120}]  (* A184585 *)
Floor[Sqrt[5](Range[120]-1/3)] (* Harvey P. Dale, Feb 02 2015 *)

Crossrefs

Cf. A184585.

Sequence in context: A003265 A360394 A193714 * A342871 A191160 A189929

Adjacent sequences: A184581 A184582 A184583 * A184585 A184586 A184587

Keyword

nonn

Author

Clark Kimberling, Jan 17 2011

Status

approved