%I #11 Oct 02 2019 05:39:08

%S 1,4,6,8,9,12,14,16,17,19,21,22,25,27,29,30,33,35,38,40,42,43,46,48,

%T 50,51,53,55,56,59,61,63,64,67,69,72,74,76,77,80,82,84,85,88,90,93,95,

%U 97,98,101,103,105,106,108,110,111,114,116,118,119,122,124

%N Positions of 1's in {A327202(n) : n > 0}.

%C Although a(n)/n->2, the sequence 2*n-a(n) appears to be unbounded below and above.

%C Positive integers k such that A327202(k) = 0. - _Jianing Song_, Sep 30 2019

%H Clark Kimberling and Jianing Song, <a href="/A327204/b327204.txt">Table of n, a(n) for n = 1..10000</a>

%t r = (1 + Sqrt[5])/2; z = 200;

%t t = Table[Floor[(2 n + 2)*r] - Floor[n*r + 2 r] - Floor[n*r], {n, 1, z}] (* {A327202(n) : n > 0} *)

%t Flatten[Position[t, 0]] (* A327203 *)

%t Flatten[Position[t, 1]] (* A327204 *)

%Y Cf. A327202, A327203 (complement).

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Aug 26 2019

%E Corrected by _Jianing Song_, Sep 30 2019