A184523 Upper s-Wythoff sequence, where s=5n. Complement of A184522.

6, 12, 18, 24, 30, 37, 43, 49, 55, 61, 68, 74, 80, 86, 92, 99, 105, 111, 117, 123, 130, 136, 142, 148, 154, 161, 167, 173, 179, 185, 191, 198, 204, 210, 216, 222, 229, 235, 241, 247, 253, 260, 266, 272, 278, 284, 291, 297, 303, 309, 315, 322, 328, 334, 340

Offset: 1

Author

Clark Kimberling, Jan 16 2011

Keywords

• nonn
• easy

Comments

See A184117 for the definition of lower and upper s-Wythoff sequences.

Crossrefs

Cf. A184117, A184522.

Programs

Mathematica

k = 5; r = -1; d = Sqrt[4 + k^2];
a[n_] := Floor[(1/2) (d + 2 - k) (n + r/(d + 2))];
b[n_] := Floor[(1/2) (d + 2 + k) (n - r/(d + 2))];
Table[a[n], {n, 120}]
Table[b[n], {n, 120}]

Formula

a(n) = floor((n/2)*(7+sqrt(29))). - Jason Yuen, Oct 16 2024