login
Positions of 1 in the infinite palindromic word at A259599.
2

%I #8 Aug 18 2015 15:41:14

%S 1,3,4,5,7,9,11,12,13,15,16,17,19,20,21,23,25,27,28,29,31,32,33,35,36,

%T 37,39,41,43,44,45,47,48,49,51,52,53,55,57,59,60,61,63,64,65,67,68,69,

%U 71,73,75,76,77,79,80,81,83,84,85,87,89,91,92,93,95,96

%N Positions of 1 in the infinite palindromic word at A259599.

%C Complement of A260400, the positions of 0. See A260390 for a guide to related sequences.

%H Clark Kimberling, <a href="/A260401/b260401.txt">Table of n, a(n) for n = 1..10000</a>

%t u[1] = {1,0,1}; m[1] = {u[1][[1]]};

%t u[n_] := u[n] = Join[u[n - 1], m[n - 1], Reverse[u[n - 1]]];

%t m[k_] := {u[k][[k]]}; v = u[6] (* A259599 *)

%t Table[Length[u[n]], {n, 1, 20}] (* A000225 *)

%t Flatten[Position[u[8], 0]] (* A260400 *)

%t Flatten[Position[u[8], 1]] (* A260401 *)

%Y Cf. A260390, A260400, A259599.

%K nonn,easy

%O 1,2

%A _Clark Kimberling_, Aug 13 2015