A283767 -id:A283767 - cp's OEIS frontend

A283765 Numbers k such that L(k) is even, where L = A000201 = lower Wythoff sequence.

3, 4, 5, 8, 9, 10, 14, 15, 19, 20, 24, 25, 26, 29, 30, 31, 35, 36, 40, 41, 45, 46, 47, 50, 51, 52, 55, 56, 57, 61, 62, 66, 67, 68, 71, 72, 73, 76, 77, 78, 82, 83, 87, 88, 89, 92, 93, 94, 97, 98, 99, 103, 104, 108, 109, 113, 114, 115, 118, 119, 120, 124, 125

Offset: 1

Clark Kimberling, Mar 17 2017

Complement of A283766.

Clark Kimberling, Table of n, a(n) for n = 1..10000

Cf. A000201, A001622, A105774, A283766, A283767.

r = GoldenRatio; z = 250; t = Table[Floor[n*r], {n, 1, z}]; u = Mod[t, 2];
Flatten[Position[u, 0]]  (* A283765 *)
Flatten[Position[u, 1]]  (* A283766 *)

a(n+1) - a(n) is in {1,3,4} for every n.

A283768 Numbers k such that U(k) is odd, where U = A001950 = upper Wythoff sequence.

Original entry on oeis.org

2, 3, 5, 6, 9, 12, 15, 16, 18, 19, 22, 25, 28, 29, 31, 32, 34, 35, 38, 41, 42, 44, 45, 47, 48, 51, 54, 55, 57, 58, 60, 61, 64, 67, 70, 71, 73, 74, 77, 80, 83, 84, 86, 87, 89, 90, 93, 96, 97, 99, 100, 102, 103, 106, 109, 110, 112, 113, 115, 116, 119, 122, 125

Offset: 1

Clark Kimberling, Mar 17 2017

Complement of A283767.

Clark Kimberling, Table of n, a(n) for n = 1..10000

Cf. A001950, A001622, A283765, A283767.

r = GoldenRatio^2; z = 250; t = Table[Floor[n*r], {n, 1, z}]; u = Mod[t, 2];
Flatten[Position[u, 0]]  (* A283767 *)
Flatten[Position[u, 1]]  (* A283768 *)

a(n+1) - a(n) is in {1,2,3} for every n.

cp's OEIS Frontend

A283765 Numbers k such that L(k) is even, where L = A000201 = lower Wythoff sequence.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

Formula