A260399 Positions of 1 in the infinite palindromic word at A260397.

1, 2, 4, 6, 7, 8, 9, 10, 12, 14, 15, 17, 18, 20, 22, 23, 24, 25, 26, 28, 30, 31, 32, 33, 34, 36, 38, 39, 40, 41, 42, 44, 46, 47, 49, 50, 52, 54, 55, 56, 57, 58, 60, 62, 63, 65, 66, 68, 70, 71, 72, 73, 74, 76, 78, 79, 81, 82, 84, 86, 87, 88, 89, 90, 92, 94

Offset

1,2

Comments

Complement of A260398, 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] = {1, 1, 0}; 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]  (* A260397 *)
Table[Length[u[n]], {n, 1, 20}] (* A000225 *)
Flatten[Position[u[8], 0]] (* A260398 *)
Flatten[Position[u[8], 1]] (* A260399 *)

Crossrefs

Cf. A260390, A260397, A260398.

Sequence in context: A047513 A039068 A374049 * A229785 A101616 A322678

Adjacent sequences: A260396 A260397 A260398 * A260400 A260401 A260402

Keyword

nonn,easy

Author

Clark Kimberling, Aug 13 2015

Status

approved