cp's OEIS Frontend

A341259 Number of 0's in n-th word defined at A341258.

%I A341259 #6 Mar 19 2021 00:03:12
%S A341259 1,0,2,1,1,3,0,2,2,2,4,1,1,3,1,3,3,3,5,0,2,2,2,4,2,2,4,2,4,4,4,6,1,1,
%T A341259 3,1,3,3,3,5,1,3,3,3,5,3,3,5,3,5,5,5,7,0,2,2,2,4,2,2,4,2,4,4,4,6,2,2,
%U A341259 4,2,4,4,4,6,2,4,4,4,6,4,4,6,4,6,6,6
%N A341259 Number of 0's in n-th word defined at A341258.
%C A341259 The number of 1's in the n-th word is given by A117479.
%t A341259 z = 200; r = (1 + Sqrt[5])/2;
%t A341259 s = Table[Floor[r*n], {n, 1, z}]; t = Complement[Range[Max[s]], s];
%t A341259 s1[n_] := Length[Intersection[Range[n - 1], s]];
%t A341259 t1[n_] := n - 1 - s1[n];
%t A341259 w[1] = {0}; w[t[[1]]] = {1};
%t A341259 w[n_] := If[MemberQ[s, n], Join[{0}, w[s1[n]]], Join[{1}, w[t1[n]]]]
%t A341259 tt = Table[w[n], {n, 1, z}] (* A341258 *)
%t A341259 c[n_] := Count[tt[[n]], 0]; Table[c[n], {n, 1, z}]  (* A341259 *)
%t A341259 d[n_] := Count[tt[[n]], 1]; Table[d[n], {n, 1, z}]  (* A117479 *)
%Y A341259 Cf. A117479, A341258.
%Y A341259 Appears to be A200649 - 1.
%K A341259 nonn
%O A341259 1,3
%A A341259 _Clark Kimberling_, Mar 16 2021