|
%I #7 Aug 18 2015 15:41:00
%S 3,5,11,13,16,19,21,27,29,35,37,43,45,48,51,53,59,61,64,67,69,75,77,
%T 80,83,85,91,93,99,101,107,109,112,115,117,123,125,131,133,139,141,
%U 144,147,149,155,157,163,165,171,173,176,179,181,187,189,192,195,197
%N Positions of 0 in the infinite palindromic word at A260397.
%C Complement of A260399, the positions of 1. See A260390 for a guide to related sequences.
%H Clark Kimberling, <a href="/A260398/b260398.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, A260399.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Aug 13 2015
|
