|
%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
|
