%I #4 Apr 30 2017 07:50:20
%S 4,8,12,16,20,24,25,26,27,28,29,30,34,38,42,46,50,54,58,59,60,61,62,
%T 63,64,68,72,76,80,84,88,92,93,94,95,96,97,98,102,106,110,114,118,122,
%U 126,127,128,129,130,131,132,136,140,144,148,152,156,160,161,162
%N Positions of 1 in A285464; complement of A285465.
%H Clark Kimberling, <a href="/A285466/b285466.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285464 = 00010001..., in which 1 is in positions 4,8,12,16,...
%t s = Nest[Flatten[# /. {0 -> {1, 1}, 1 -> {0, 0, 0, 1}}] &, {0}, 10] (* A285464 *)
%t Flatten[Position[s, 0]] (* A285465 *)
%t Flatten[Position[s, 1]] (* A285466 *)
%Y Cf. A285464, A285465, A285467.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 29 2017
|