A260392 Positions of 1 in the infinite palindromic word at A260390.

1, 3, 5, 7, 9, 11, 12, 13, 15, 17, 19, 21, 23, 25, 27, 29, 31, 33, 35, 36, 37, 39, 41, 43, 45, 47, 48, 49, 51, 53, 55, 57, 59, 60, 61, 63, 65, 67, 69, 71, 73, 75, 77, 79, 81, 83, 84, 85, 87, 89, 91, 93, 95, 97, 99, 101, 103, 105, 107, 108, 109, 111, 113, 115

Offset

1,2

Comments

Complement of A260391, 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, 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 - 1][[k]]}; u[8]  (* A260390 *)
Table[Length[u[n]], {n, 1, 20}] (* A083329 *)
Flatten[Position[u[8], 0]]      (* A260391 *)
Flatten[Position[u[8], 1]]      (* A260392 *)

Crossrefs

Cf. A260390, A260391.

Sequence in context: A230078 A275669 A191275 * A186346 A248633 A137228

Adjacent sequences: A260389 A260390 A260391 * A260393 A260394 A260395

Keyword

nonn,easy

Author

Clark Kimberling, Jul 31 2015

Status

approved