%I #4 Apr 19 2017 09:19:59
%S 3,4,8,9,11,13,17,18,20,24,27,28,32,33,37,38,40,42,46,47,49,53,56,57,
%T 59,61,65,68,69,71,73,77,80,81,85,86,90,91,93,95,99,100,102,106,109,
%U 110,112,114,118,121,122,126,127,131,132,134,136,140,143,144,148
%N Positions of 1 in A285031; complement of A285032.
%C Conjecture: -1 < n*r - a(n) < 2 for n>=1, where r = 1 + sqrt(2).
%H Clark Kimberling, <a href="/A285033/b285033.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285031 = 00110..., in which 1 is in positions 3,4,8,9,11,...
%t s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 1}}] &, {0}, 8]; (* A285031 *)
%t Flatten[Position[s, 0]]; (* A285032 *)
%t Flatten[Position[s, 1]]; (* A285033 *)
%Y Cf. A285031, A285032, A285036.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 19 2017
|