This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A288382 #13 Feb 18 2021 02:02:24
%S A288382 1,2,3,5,8,13,22,39,72,137,266,523,1036,2061,4110,8207,16400,32785,
%T A288382 65554,131091,262164,524309,1048598,2097175,4194328,8388633,16777242
%N A288382 Positions of 0 in A288381; complement of A288383.
%C A288382 a(n+1)/a(n)-> 2.
%C A288382 Appears to be the same as A052968 (apart from the offset). - _R. J. Mathar_, Jun 14 2017
%C A288382 This conjecture is proved in A288381. - _Michel Dekking_, Feb 18 2021
%F A288382 a(n) = -1 + A288133(n-1) for n >= 2.
%F A288382 Conjectures from _Colin Barker_, Jun 10 2017: (Start)
%F A288382 G.f.: x*(1 - 2*x + x^3 - x^4) / ((1 - x)^2*(1 - 2*x)).
%F A288382 a(n) = -1 + 2^(n-3) + n for n>2.
%F A288382 a(n) = 4*a(n-1) - 5*a(n-2) + 2*a(n-3) for n>5.
%F A288382 (End)
%F A288382 Barker's conjectures are implied by Mathar's conjecture. - _Michel Dekking_, Feb 18 2021
%t A288382 s = {0, 0}; w[0] = StringJoin[Map[ToString, s]];
%t A288382 w[n_] := StringReplace[w[n - 1], {"00" -> "0001", "1" -> "11"}]
%t A288382 Table[w[n], {n, 0, 8}]
%t A288382 st = ToCharacterCode[w[11]] - 48 (* A288381 *)
%t A288382 Flatten[Position[st, 0]] (* A288382 *)
%t A288382 Flatten[Position[st, 1]] (* A288383 *)
%Y A288382 Cf. A288381, A288383.
%K A288382 nonn,easy
%O A288382 1,2
%A A288382 _Clark Kimberling_, Jun 10 2017