|
%I #4 Apr 25 2017 11:46:12
%S 1,4,5,7,9,12,13,16,17,19,22,23,25,28,29,31,33,36,37,40,41,43,45,48,
%T 49,52,53,55,58,59,61,63,66,67,70,71,73,76,77,79,81,84,85,88,89,91,94,
%U 95,97,100,101,103,105,108,109,112,113,115,117,120,121,124
%N Positions of 1 in A285305; complement of A285306.
%C Let s(n) = 2n - a(n). It appears that s(n) is a 01-sequence with 0 in positions given by A189660 and 1 in positions given by A189665.
%H Clark Kimberling, <a href="/A285307/b285307.txt">Table of n, a(n) for n = 1..10000</a>
%e As a word, A285305 = 1001101..., in which 1 is in positions 1,4,5,7,9,...
%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, A285306.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Apr 25 2017
|
