|
%I #11 Mar 17 2017 22:03:57
%S 1,2,6,7,11,12,13,16,17,18,21,22,23,27,28,32,33,34,37,38,39,42,43,44,
%T 48,49,53,54,58,59,60,63,64,65,69,70,74,75,79,80,81,84,85,86,90,91,95,
%U 96,100,101,102,105,106,107,110,111,112,116,117,121,122,123
%N Numbers k such that L(k) is odd, where L = A000201 = lower Wythoff sequence.
%C Complement of A283765.
%H Clark Kimberling, <a href="/A283766/b283766.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n+1) - a(n) is in {1,3,4} for every n.
%F A085003(a(n)) = n for all n >= 1. - _Antti Karttunen_, Mar 17 2017
%t r = GoldenRatio; z = 250; t = Table[Floor[n*r], {n, 1, z}]; u = Mod[t, 2];
%t Flatten[Position[u, 0]] (* A283765 *)
%t Flatten[Position[u, 1]] (* A283766 *)
%o (Scheme, with Antti Karttunen's IntSeq-library)
%o (define A283766 (MATCHING-POS 1 1 (lambda (n) (odd? (A105774 n)))))
%o ;; _Antti Karttunen_, Mar 17 2017
%Y Cf. A000201, A001622, A105774, A283765, A283768.
%Y Cf. A085002 (characteristic function), A085003 (a left inverse).
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Mar 17 2017
|
