A260479 Positions of 0 in the infinite palindromic word at A260455.

1, 3, 4, 6, 8, 10, 11, 13, 14, 16, 17, 19, 21, 23, 24, 26, 28, 30, 31, 33, 35, 37, 38, 40, 41, 43, 44, 46, 48, 50, 51, 53, 54, 56, 57, 59, 61, 63, 64, 66, 67, 69, 70, 72, 74, 76, 77, 79, 81, 83, 84, 86, 88, 90, 91, 93, 94, 96, 97, 99, 101, 103, 104, 106, 108

Offset

1,2

Comments

Complement of A260480. See A260390 for a guide to related sequences.

Links

Clark Kimberling, Table of n, a(n) for n = 1..10000

Mathematica

u[1] = {0}; m[1] = {1}; u[n_] := u[n] = Join[u[n - 1], m[n - 1], Reverse[u[n - 1]]];
m[k_] := If[OddQ[k], {1}, {}]
v = u[8]  (* A240455 *)
Flatten[Position[v, 0]]   (* A260479 *)
Flatten[Position[v, 1]]   (* A260480 *)

Crossrefs

Cf. A260390, A260480.

Sequence in context: A175071 A336822 A140497 * A285344 A342740 A187343

Adjacent sequences: A260476 A260477 A260478 * A260480 A260481 A260482

Keyword

nonn,easy

Author

Clark Kimberling, Aug 29 2015

Status

approved