|
%I #6 Aug 13 2015 04:07:25
%S 1,3,5,7,9,11,12,13,15,17,19,21,23,25,27,29,31,33,35,36,37,39,41,43,
%T 45,47,48,49,51,53,55,57,59,60,61,63,65,67,69,71,73,75,77,79,81,83,84,
%U 85,87,89,91,93,95,97,99,101,103,105,107,108,109,111,113,115
%N Positions of 1 in the infinite palindromic word at A260390.
%C Complement of A260391, the positions of 0. See A260390 for a guide to related sequences.
%H Clark Kimberling, <a href="/A260392/b260392.txt">Table of n, a(n) for n = 1..10000</a>
%t u[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 - 1][[k]]}; u[8] (* A260390 *)
%t Table[Length[u[n]], {n, 1, 20}] (* A083329 *)
%t Flatten[Position[u[8], 0]] (* A260391 *)
%t Flatten[Position[u[8], 1]] (* A260392 *)
%Y Cf. A260390, A260391.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Jul 31 2015
|
