A187339 a(n) = floor((7+sqrt(5))*n/4); complement of A187330.

2, 4, 6, 9, 11, 13, 16, 18, 20, 23, 25, 27, 30, 32, 34, 36, 39, 41, 43, 46, 48, 50, 53, 55, 57, 60, 62, 64, 66, 69, 71, 73, 76, 78, 80, 83, 85, 87, 90, 92, 94, 96, 99, 101, 103, 106, 108, 110, 113, 115, 117, 120, 122, 124, 126, 129, 131, 133, 136, 138, 140, 143, 145

Offset: 1

Author

Clark Kimberling, Mar 08 2011

Keywords

• nonn

Comments

A187339 and A187330 are a pair of Beatty sequences.

Crossrefs

Cf. A187330.

Programs

Mathematica

Table[Floor[((7+5^(1/2))/4)n], {n,1,120}]

Formula

a(n)=floor((7+sqrt(5))*n/4).