A260396 Positions of 1 in the infinite palindromic word at A260394.

2, 3, 5, 6, 8, 10, 11, 13, 14, 16, 18, 19, 21, 22, 24, 26, 27, 29, 30, 34, 35, 37, 38, 40, 42, 43, 45, 46, 48, 50, 51, 53, 54, 56, 58, 59, 61, 62, 64, 66, 67, 69, 70, 72, 74, 75, 77, 78, 80, 82, 83, 85, 86, 88, 90, 91, 93, 94, 98, 99, 101, 102, 104, 106, 107

Offset

1,1

Comments

Complement of A260395, the positions of 0. See A260390 for a guide to related sequences.

Links

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

Mathematica

u[1] = {0, 1, 1}; m[1] = {u[1][[1]]};
u[n_] := u[n] = Join[u[n - 1], m[n - 1], Reverse[u[n - 1]]];
m[k_] := {u[k][[k]]}; v = u[6]  (* A260394 *)
Table[Length[u[n]], {n, 1, 20}] (* A000225 *)
Flatten[Position[u[8], 0]] (* A260395 *)
Flatten[Position[u[8], 1]] (* A260396 *)

Crossrefs

Cf. A260390, A260394, A260395.

Sequence in context: A285209 A184590 A047448 * A029921 A026355 A099267

Adjacent sequences: A260393 A260394 A260395 * A260397 A260398 A260399

Keyword

nonn,easy

Author

Clark Kimberling, Aug 13 2015

Status

approved