%I #7 Aug 18 2015 15:41:08
%S 1,2,4,6,7,8,9,10,12,14,15,17,18,20,22,23,24,25,26,28,30,31,32,33,34,
%T 36,38,39,40,41,42,44,46,47,49,50,52,54,55,56,57,58,60,62,63,65,66,68,
%U 70,71,72,73,74,76,78,79,81,82,84,86,87,88,89,90,92,94
%N Positions of 1 in the infinite palindromic word at A260397.
%C Complement of A260398, the positions of 0. See A260390 for a guide to related sequences.
%H Clark Kimberling, <a href="/A260399/b260399.txt">Table of n, a(n) for n = 1..10000</a>
%t u[1] = {1, 1,0}; 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] (* A260397 *)
%t Table[Length[u[n]], {n, 1, 20}] (* A000225 *)
%t Flatten[Position[u[8], 0]] (* A260398 *)
%t Flatten[Position[u[8], 1]] (* A260399 *)
%Y Cf. A260390, A260397, A260398.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Aug 13 2015