|
|
A260391
|
|
Positions of 0 in the infinite palindromic word at A260390.
|
|
3
|
|
|
2, 4, 6, 8, 10, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 38, 40, 42, 44, 46, 50, 52, 54, 56, 58, 62, 64, 66, 68, 70, 72, 74, 76, 78, 80, 82, 86, 88, 90, 92, 94, 96, 98, 100, 102, 104, 106, 110, 112, 114, 116, 118, 120, 122, 124, 126, 128, 130, 134, 136
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Complement of A260392, the positions of 1. See A260390 for a guide to related sequences.
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
nonn,easy
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|