A184587 a(n) = floor((n+1/2)*s), where s=(5+sqrt(5))/4; complement of A184586.

2, 4, 6, 8, 9, 11, 13, 15, 17, 18, 20, 22, 24, 26, 28, 29, 31, 33, 35, 37, 38, 40, 42, 44, 46, 47, 49, 51, 53, 55, 56, 58, 60, 62, 64, 66, 67, 69, 71, 73, 75, 76, 78, 80, 82, 84, 85, 87, 89, 91, 93, 94, 96, 98, 100, 102, 104, 105, 107, 109, 111, 113, 114, 116, 118, 120, 122, 123, 125, 127, 129, 131, 132, 134, 136, 138, 140, 142, 143, 145, 147, 149, 151, 152, 154, 156, 158, 160, 161, 163, 165, 167, 169, 170, 172, 174, 176, 178, 179, 181, 183, 185, 187, 189, 190, 192, 194, 196, 198, 199, 201, 203, 205, 207, 208, 210, 212, 214, 216, 217

Offset

1,1

Links

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

Formula

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

Mathematica

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

Crossrefs

Cf. A184586.

Sequence in context: A195173 A215000 A228246 * A345436 A225773 A380744

Adjacent sequences: A184584 A184585 A184586 * A184588 A184589 A184590

Keyword

nonn

Author

Clark Kimberling, Jan 17 2011

Extensions

Name and formula corrected by Michel Dekking, Sep 08 2017

Status

approved