%I #4 May 17 2017 17:57:42
%S 3,6,7,10,11,14,17,18,21,22,25,28,29,32,33,36,37,40,43,44,47,48,51,54,
%T 55,58,59,62,63,66,69,70,73,74,77,80,81,84,85,88,91,92,95,96,99,100,
%U 103,106,107,110,111,114,117,118,121,122,125,126,129,132,133
%N Positions of 1 in A286804; complement of A286805.
%C a(n) - a(n-1) is in {1,3} for n>=2, and a(n)/n -> 5 - 2*sqrt(2).
%H Clark Kimberling, <a href="/A286806/b286806.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A286804 = 0010011001100100110011..., in which 1 is in positions 3,6,7,10,11,...
%t s = Nest[Flatten[# /. {0 -> {0, 0, 1}, 1 -> {0}}] &, {0}, 16]; (* Pell word, A171588 *)
%t w = StringJoin[Map[ToString, s]];
%t w1 = StringReplace[w, {"000" -> ""}];
%t st = ToCharacterCode[w1] - 48 ; (* A286804 *)
%t Flatten[Position[st, 0]]; (* A286805 *)
%t Flatten[Position[st, 1]]; (* A286806 *)
%Y Cf. A171588, A286804, A286805.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, May 17 2017