|
%I #8 May 12 2017 08:35:49
%S 1,3,7,9,13,16,19,21,25,27,31,34,37,39,43,46,48,52,55,57,61,63,67,70,
%T 73,75,79,81,85,88,91,93,97,100,102,106,109,111,115,117,121,124,127,
%U 129,133,136,138,142,144,148,151,154,156,160,163,165,169,171,175
%N Positions of 0 in A285351; complement of A285354.
%C Conjecture: 3n - 2 - a(n) is in {0,1} for n>=1.
%H Clark Kimberling, <a href="/A285353/b285353.txt">Table of n, a(n) for n = 1..10000</a>
%t s = Nest[Flatten[# /. {0 -> {1, 0}, 1 -> {1, 1, 0, 0}}] &, {0}, 13] (* A285345 *)
%t u = Flatten[Position[s, 0]] (* A285346 *)
%t v = Flatten[Position[s, 1]] (* A285347 *)
%t t1 = Table[2*n + 1 - u[[n]], {n, 1, Length[u]}] (* A285351 *)
%t t2 = Table[2*n - 1 - v[[n]], {n, 1, Length[v]}] (* A285352 *)
%t Flatten[Position[t1, 0]] (* A285353 *)
%t Flatten[Position[t1, 1]] (* A285354 *)
%t Flatten[Position[t2, 0]] (* A189668 *)
%t Flatten[Position[t2, 1]] (* A189679 *)
%Y Cf. A285345, A285346, A285351, A285354.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Apr 25 2017
|
