|
%I #8 Jun 05 2020 03:12:22
%S 1,4,7,10,12,16,19,23,25,28,31,34,36,40,42,45,48,52,55,58,60,64,67,71,
%T 73,76,79,83,86,89,91,95,97,100,103,106,108,112,115,119,121,124,127,
%U 130,132,136,138,141,144,148,151,154,156,160,162,165,168,171,173
%N Positions of 0 in A284792; complement of A284934.
%C a(n) - a(n-1) is in {2,3,4} for n>=2. Conjecture: a(n)/n -> 3.
%H Clark Kimberling, <a href="/A284933/b284933.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A284932 = 0110110110101110..., in which 0 is in positions 1,4,7,10,12,...
%t s = Nest[Flatten[# /. {0 -> {0, 1}, 1 -> {1, 0}}] &, {0}, 9] (* A010060 *)
%t w = StringJoin[Map[ToString, s]]
%t w1 = StringReplace[w, {"1001" -> "1"}]
%t st = ToCharacterCode[w1] - 48 (* A284792 *)
%t Flatten[Position[st, 0]] (* A284933 *)
%t Flatten[Position[st, 1]] (* A284934 *)
%Y Cf. A010060, A284792, A284934.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, May 10 2017
%E Definition corrected by _Georg Fischer_, Jun 05 2020
|
