A187341 Floor((5-sqrt(5))n); complement of A187342.

2, 5, 8, 11, 13, 16, 19, 22, 24, 27, 30, 33, 35, 38, 41, 44, 46, 49, 52, 55, 58, 60, 63, 66, 69, 71, 74, 77, 80, 82, 85, 88, 91, 93, 96, 99, 102, 105, 107, 110, 113, 116, 118, 121, 124, 127, 129, 132, 135, 138, 140, 143, 146, 149, 152, 154, 157, 160, 163, 165, 168

Offset: 1

Author

Clark Kimberling, Mar 08 2011

Keywords

• nonn

Comments

A187341 and A187342 are a pair of Beatty sequences.

Crossrefs

Cf. A187342.

Programs

Mathematica

Table[Floor[(5-5^(1/2))n], {n,1,80}]

Formula

a(n)=floor((5-sqrt(5))n).