|
%I #4 Apr 22 2017 23:05:11
%S 1,3,7,8,11,12,15,16,17,19,21,25,26,29,30,33,34,35,39,40,41,45,46,47,
%T 49,51,55,56,59,60,61,63,67,68,71,72,75,76,77,81,82,83,85,87,91,92,95,
%U 96,97,99,103,104,107,108,111,112,113,117,118,119,121,123
%N Positions of 1 in A285162; complement of A285163.
%C Conjecture: a(n)/n -> 2.
%H Clark Kimberling, <a href="/A285164/b285164.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285142 = 101000110..., in which 1 is in positions 1,3,7,8,11,...
%t s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {0, 0, 1, 1}}] &, {0}, 10]; (* A285159 *)
%t Flatten[Position[s, 0]]; (* A285160 *)
%t Flatten[Position[s, 1]]; (* A285161 *)
%Y Cf. A285159, A285162, A285163.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Apr 21 2017
|
