cp's OEIS Frontend

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

%I A283768 #4 Mar 17 2017 22:04:19
%S A283768 2,3,5,6,9,12,15,16,18,19,22,25,28,29,31,32,34,35,38,41,42,44,45,47,
%T A283768 48,51,54,55,57,58,60,61,64,67,70,71,73,74,77,80,83,84,86,87,89,90,93,
%U A283768 96,97,99,100,102,103,106,109,110,112,113,115,116,119,122,125
%N A283768 Numbers k such that U(k) is odd, where U = A001950 = upper Wythoff sequence.
%C A283768 Complement of A283767.
%H A283768 Clark Kimberling, <a href="/A283768/b283768.txt">Table of n, a(n) for n = 1..10000</a>
%F A283768 a(n+1) - a(n) is in {1,2,3} for every n.
%t A283768 r = GoldenRatio^2; z = 250; t = Table[Floor[n*r], {n, 1, z}]; u = Mod[t, 2];
%t A283768 Flatten[Position[u, 0]]  (* A283767 *)
%t A283768 Flatten[Position[u, 1]]  (* A283768 *)
%Y A283768 Cf. A001950, A001622, A283765, A283767.
%K A283768 nonn,easy
%O A283768 1,1
%A A283768 _Clark Kimberling_, Mar 17 2017