|
%I
%S 1,6,8,9,13,17,22,23,27,31,36,37,41,45,50,51,55,59,63,68,70,71,75,79,
%T 83,88,89,94,96,97,101,105,110,111,115,119,124,125,129,133,137,142,
%U 144,145,149,153,158,159,163,167,172,173,177,181,185,190,192,193
%N Positions of 0 in A285274; complement of A285276.
%C Conjecture: 0 < n*r - a(n) < 6 for n>=1, where r = 2+sqrt(2).
%H Clark Kimberling, <a href="/A285275/b285275.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285274 = 011110..., in which 0 is in positions 1,6,8,9,13,...
%t s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 1, 1, 1}}] &, {0}, 10]; (* A285274 *)
%t Flatten[Position[s, 0]]; (* A285275 *)
%t Flatten[Position[s, 1]]; (* A285276 *)
%Y Cf. A285276, A285277, A285278.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Apr 24 2017
|
