|
|
A188967
|
|
Zero-one sequence based on (3n-2): a(A016777(k))=a(k); a(A007494(k))=1-a(k); a(1)=0.
|
|
45
|
|
|
0, 1, 0, 1, 1, 0, 0, 0, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 1, 1, 1, 1, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 1, 1, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 1, 1, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0, 0, 0
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1
|
|
COMMENTS
|
Compare with the generation of the Thue-Morse sequence T=A010060 from T(2n-1)=T(n), T(2n)=1-T(n), T(1)=0.
Other zero-one sequences generated in this manner:
|
|
LINKS
|
|
|
EXAMPLE
|
Let u=A016777 and v=A007494, so that u(n)=3n-2 and v=complement(u) for n>=1. Then a is a self-generating zero-one sequence with initial value a(1)=0 and a(u(k))=a(k); a(v(k))=1-a(k).
a(2)=a(v(1))=1-a(1)=1
a(3)=a(v(2))=1-a(2)=0
a(4)=a(u(2))=a(2)=1.
|
|
MATHEMATICA
|
a[1] = 0; h = 128;
c = (u[#1] &) /@ Range[h];
d = (Complement[Range[Max[#1]], #1] &)[c]; (*A007494*)
Table[a[d[[n]]] = 1 - a[n], {n, 1, h - 1}];
Table[a[c[[n]]] = a[n], {n, 1, h}] (*A188967*)
Flatten[Position[%, 0]] (*A188968*)
Flatten[Position[%%, 1]] (*A188969*)
|
|
PROG
|
(Haskell)
import Data.List (transpose)
a188967 n = a188967_list !! (n-1)
a188967_list = 0 : zipWith ($)
(cycle [(1 -) . a188967, (1 -) . a188967, a188967])
(concat $ transpose [[1, 3 ..], [2, 4 ..], [2 ..]])
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|