A286904 - OEIS

%I #4 May 17 2017 17:57:59

%S 3,4,7,8,12,13,16,17,21,22,25,26,29,30,34,35,38,39,43,44,47,48,51,52,

%T 56,57,60,61,65,66,69,70,74,75,78,79,82,83,87,88,91,92,96,97,100,101,

%U 104,105,109,110,113,114,118,119,122,123,127,128,131,132,135

%N Positions of 0 in A286903; complement of A286905.

%C a(n) - a(n-1) is in {1,3,4} for n>=2, and a(n)/n -> (3 + sqrt(2))/2.

%H Clark Kimberling, <a href="/A286904/b286904.txt">Table of n, a(n) for n = 1..10000</a>

%e As a word, A286804 = 11001100111001100111001..., in which 0 is in positions 3,4,7,8,12,...

%t s = Nest[Flatten[# /. {0 -> 1, 1 -> {1, 1, 0}}] &, {1}, 7] (* A080764 *)

%t w = StringJoin[Map[ToString, s]]

%t w1 = StringReplace[w, {"0" -> "00"}]

%t st = ToCharacterCode[w1] - 48 ; (* A286903 *)

%t Flatten[Position[st, 0]];  (* A286904 *)

%t Flatten[Position[st, 1]];  (* A286905 *)

%Y Cf. A080764, A286903, A286905.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, May 17 2017