|
%I #4 Apr 25 2017 11:46:06
%S 2,3,6,8,10,11,14,15,18,20,21,24,26,27,30,32,34,35,38,39,42,44,46,47,
%T 50,51,54,56,57,60,62,64,65,68,69,72,74,75,78,80,82,83,86,87,90,92,93,
%U 96,98,99,102,104,106,107,110,111,114,116,118,119,122,123
%N Positions of 0 in A285305; complement of A285307.
%C Let s(n) = 2n - a(n). It appears that s(n) is a 01-sequence with 0 in positions given by A189665 and 1 in positions given by A189660.
%H Clark Kimberling, <a href="/A285306/b285306.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285305 = 1001101..., in which 0 is in positions 2,3,6,8,10,...
%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. A189660, A189665, A285305, A285307.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Apr 25 2017
|
