login
Positions of 0 in the infinite palindromic word at A260455.
3

%I #6 Sep 07 2015 12:33:28

%S 2,5,7,9,12,15,18,20,22,25,27,29,32,34,36,39,42,45,47,49,52,55,58,60,

%T 62,65,68,71,73,75,78,80,82,85,87,89,92,95,98,100,102,105,107,109,112,

%U 114,116,119,122,125,127,129,132,134,136,139,141,143,146,149

%N Positions of 0 in the infinite palindromic word at A260455.

%C Complement of A260479. See A260390 for a guide to related sequences.

%H Clark Kimberling, <a href="/A260480/b260480.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, A260479.

%K nonn,easy

%O 1,1

%A _Clark Kimberling_, Aug 29 2015