|
| |
|
|
A095076
|
|
Parity of 1-fibits in Zeckendorf expansion A014417(n).
|
|
6
| |
|
|
0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 0, 0, 1, 0, 0, 0, 1, 1, 0, 0, 0, 1, 0, 1, 1, 0, 1, 1, 1, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| Let u=A000201=(lower Wythoff sequence) and v=A001950=(upper Wythoff sequence. Conjecture: A095076 is the sequence p given by p(1)=0 and p(u(k))=p(k); p(v(k))=1-p(k). [From Clark Kimberling, Apr 15 2011]
[base 2] 0.111010010001100... = 0.9105334708635617... [Joerg Arndt, May 13 2011]
|
|
|
LINKS
| Index entries for characteristic functions
Joerg Arndt, Fxtbook, section 38.11.1, pp. 754-756
|
|
|
MATHEMATICA
| r=(1+5^(1/2))/2; u[n_] := Floor[n*r]; (*A000201*)
a[1] = 0; h = 128;
c = (u[#1] &) /@ Range[2h];
d = (Complement[Range[Max[#1]], #1] &)[c]; (*A001950*)
Table[a[d[[n]]] = 1 - a[n], {n, 1, h - 1}];
Table[a[c[[n]]] = a[n], {n, 1, h}] (*A095076 conjectured*)
Flatten[Position[%, 0]] (*A189034*)
Flatten[Position[%%, 1]] (*A189035*)
|
|
|
CROSSREFS
| a(n) = A010060(A003714(n)). a(n) = 1 - A095111(n). Characteristic function of A020899. Run counts are given by A095276.
Cf. A189034, A189035 (positions of 0 and 1 if the conjecture is valid.
Sequence in context: A118249 A174206 A159637 * A167392 A168395 A130854
Adjacent sequences: A095073 A095074 A095075 * A095077 A095078 A095079
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Antti Karttunen (His-Firstname.His-Surname(AT)iki.fi), Jun 01 2004
|
| |
|
|
