A327203 - OEIS

%I #11 Oct 02 2019 05:38:59

%S 2,3,5,7,10,11,13,15,18,20,23,24,26,28,31,32,34,36,37,39,41,44,45,47,

%T 49,52,54,57,58,60,62,65,66,68,70,71,73,75,78,79,81,83,86,87,89,91,92,

%U 94,96,99,100,102,104,107,109,112,113,115,117,120,121,123,125

%N Positions of 0'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="/A327203/b327203.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, A327204 (complement).

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Aug 26 2019

%E Corrected by _Jianing Song_, Sep 30 2019