|
%I #6 Aug 18 2015 15:40:01
%S 1,4,7,9,12,15,17,20,23,25,28,31,32,33,36,39,41,44,47,49,52,55,57,60,
%T 63,65,68,71,73,76,79,81,84,87,89,92,95,96,97,100,103,105,108,111,113,
%U 116,119,121,124,127,129,132,135,137,140,143,145,148,151,153
%N Positions of 0 in the infinite palindromic word at A260394.
%C Complement of A260396, the positions of 1. See A260390 for a guide to related sequences.
%H Clark Kimberling, <a href="/A260395/b260395.txt">Table of n, a(n) for n = 1..10000</a>
%t u[1] = {0, 1, 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] (* A260394 *)
%t Table[Length[u[n]], {n, 1, 20}] (* A000225 *)
%t Flatten[Position[u[8], 0]] (* A260395 *)
%t Flatten[Position[u[8], 1]] (* A260396 *)
%Y Cf. A260390, A260394, A260396.
%K nonn,easy
%O 1,2
%A _Clark Kimberling_, Aug 13 2015
|
