login
Positions of 1 in A285530; complement of A285533.
3

%I #6 Feb 20 2022 18:27:35

%S 2,6,9,10,12,15,16,17,18,20,24,28,32,36,40,43,44,46,49,50,51,52,54,58,

%T 62,66,69,70,72,75,76,77,78,79,80,82,85,86,87,88,90,94,97,98,100,103,

%U 104,105,106,108,112,116,120,123,124,126,129,130,131,132,133

%N Positions of 1 in A285530; complement of A285533.

%C Conjecture: a(n)/n -> 2.

%H Clark Kimberling, <a href="/A285532/b285532.txt">Table of n, a(n) for n = 1..10000</a>

%e As a word, A285530 = 01000100..., in which 1 is in positions 2,6,9,10,12,...

%t s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 1, 0, 0}}] &, {0}, 8] (* A285530 *)

%t Flatten[Position[s, 0]] (* A285531 *)

%t Flatten[Position[s, 1]] (* A285532 *)

%t Position[SubstitutionSystem[{0->{1,1},1->{0,1,0,0}},{0},{6}][[1]],1]// Flatten (* _Harvey P. Dale_, Feb 20 2022 *)

%Y Cf. A285530, A285531, A285533.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Apr 30 2017