%I #7 Sep 07 2015 12:33:20
%S 1,3,4,6,8,10,11,13,14,16,17,19,21,23,24,26,28,30,31,33,35,37,38,40,
%T 41,43,44,46,48,50,51,53,54,56,57,59,61,63,64,66,67,69,70,72,74,76,77,
%U 79,81,83,84,86,88,90,91,93,94,96,97,99,101,103,104,106,108
%N Positions of 0 in the infinite palindromic word at A260455.
%C Complement of A260480. See A260390 for a guide to related sequences.
%H Clark Kimberling, <a href="/A260479/b260479.txt">Table of n, a(n) for n = 1..10000</a>
%t u[1] = {0}; m[1] = {1}; u[n_] := u[n] = Join[u[n - 1], m[n - 1], Reverse[u[n - 1]]];
%t m[k_] := If[OddQ[k], {1}, {}]
%t v = u[8] (* A240455 *)
%t Flatten[Position[v, 0]] (* A260479 *)
%t Flatten[Position[v, 1]] (* A260480 *)
%Y Cf. A260390, A260480.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Aug 29 2015
|