|
%I #6 Sep 07 2015 12:33:28
%S 2,5,7,9,12,15,18,20,22,25,27,29,32,34,36,39,42,45,47,49,52,55,58,60,
%T 62,65,68,71,73,75,78,80,82,85,87,89,92,95,98,100,102,105,107,109,112,
%U 114,116,119,122,125,127,129,132,134,136,139,141,143,146,149
%N Positions of 0 in the infinite palindromic word at A260455.
%C Complement of A260479. See A260390 for a guide to related sequences.
%H Clark Kimberling, <a href="/A260480/b260480.txt">Table of n, a(n) for n = 1..10000</a>
%t u[1] = {0}; m[1] = {1}; u[n_] := u[n] = Join[u[n - 1], m[n - 1], Reverse[u[n - 1]]];
%t m[k_] := If[OddQ[k], {1}, {}]
%t v = u[8] (* A240455 *)
%t Flatten[Position[v, 0]] (* A260479 *)
%t Flatten[Position[v, 1]] (* A260480 *)
%Y Cf. A260390, A260479.
%K nonn,easy
%O 1,1
%A _Clark Kimberling_, Aug 29 2015
|
