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,1

Comments

Complement of A283766.

Links

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

Formula

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

Mathematica

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 *)

Prog

(Scheme, with Antti Karttunen's IntSeq-library)
(define A283765 (MATCHING-POS 1 1 (lambda (n) (even? (A105774 n)))))
;; Antti Karttunen, Mar 17 2017

Crossrefs

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

Sequence in context: A127427 A286994 A047205 * A120631 A047601 A029675

Adjacent sequences: A283762 A283763 A283764 * A283766 A283767 A283768

Keyword

nonn,easy

Author

Clark Kimberling, Mar 17 2017

Status

approved