login
A260399
Positions of 1 in the infinite palindromic word at A260397.
2
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
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
KEYWORD
nonn,easy
AUTHOR
Clark Kimberling, Aug 13 2015
STATUS
approved