|
| |
|
|
A071295
|
|
Product of numbers of 0's and 1' in binary representation of n.
|
|
1
| |
|
|
0, 0, 1, 0, 2, 2, 2, 0, 3, 4, 4, 3, 4, 3, 3, 0, 4, 6, 6, 6, 6, 6, 6, 4, 6, 6, 6, 4, 6, 4, 4, 0, 5, 8, 8, 9, 8, 9, 9, 8, 8, 9, 9, 8, 9, 8, 8, 5, 8, 9, 9, 8, 9, 8, 8, 5, 9, 8, 8, 5, 8, 5, 5, 0, 6, 10, 10, 12, 10, 12, 12, 12, 10, 12, 12, 12, 12, 12, 12, 10, 10, 12, 12, 12, 12, 12, 12, 10, 12, 12, 12
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 0,5
|
|
|
COMMENTS
| a(n) = A023416(n)*A000120(n);
a(1)=0, a(2*n)=(A023416(n)+1)*A000120(n), a(2*n+1)=(A000120(n)+1)*A023416(n);
a(n) = 0 iff n=2^k-1 for some k.
|
|
|
LINKS
| T. D. Noe, Table of n, a(n) for n=0..1023
|
|
|
FORMULA
| a(n)=a(n\2)+(1 - n mod 2)*A000120(n\2)+(n mod 2)*A023416(n\2).
|
|
|
EXAMPLE
| a(14)=3 because 14 is 1110 in binary and has 3 ones and 1 zero.
|
|
|
MATHEMATICA
| f[n_] := Block[{s = IntegerDigits[n, 2]}, Count[s, 0] Count[s, 1]]; Table[ f[n], {n, 0, 90}]
|
|
|
CROSSREFS
| Cf. A007088.
Sequence in context: A134577 A071442 A124759 * A117652 A103223 A091399
Adjacent sequences: A071292 A071293 A071294 * A071296 A071297 A071298
|
|
|
KEYWORD
| nonn,nice,base
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Jun 20 2002
|
|
|
EXTENSIONS
| Edited by N. J. A. Sloane (njas(AT)research.att.com) and Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 11 2002
|
| |
|
|
