|
| |
|
|
A115516
|
|
The mode of the bits of n (using 0 if bimodal).
|
|
1
| |
|
|
0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0, 1, 1, 1, 1, 1, 1, 1, 0, 0, 0, 1, 0, 1, 1, 1, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
COMMENTS
| If n is a term of A044951, A115517(n) = a(n); otherwise, A115517(n) = 1 and a(n) = 0 (and n is a term of A031443).
|
|
|
FORMULA
| a(A031443(k))=0 for k>=1.
|
|
|
EXAMPLE
| a(5)=1 because 5 = 101 (binary) and 0 occurs once, but 1 occurs twice, so 1 is the mode. 5 is a member of A044951 (Numbers with no two equally numerous base 2 digits).
a(10)=0 because 10 = 1010 (binary), where 0 and 1 each occur twice. As these bits are bimodal, 0 is chosen. 10 is a member of A031443 (Digitally balanced numbers: numbers which in base 2 have the same number of 0's as 1's.).
|
|
|
PROG
| (PARI) {for(n=0, 104, b=binary(n); l=length(b); s=sum(m=1, l, b[m]); if(s>l-s, a=1, a=0); print1(a, ", "))}
|
|
|
CROSSREFS
| Cf. A115517 (same but use 1 if bimodal), A031443 (n's bits bimodal), A044951 (n's bits unimodal), A115353 (mode of n's decimal digits).
Sequence in context: A082446 A144611 A130853 * A090171 A118006 A165263
Adjacent sequences: A115513 A115514 A115515 * A115517 A115518 A115519
|
|
|
KEYWORD
| base,nonn
|
|
|
AUTHOR
| Rick L. Shepherd (rshepherd2(AT)hotmail.com), Jan 23 2006
|
| |
|
|
