|
| |
|
|
A079074
|
|
Sum of numbers < n having in binary representation the same number of 0's and 1's as n.
|
|
3
| |
|
|
0, 0, 0, 0, 0, 5, 0, 0, 0, 9, 0, 19, 11, 24, 0, 0, 0, 17, 0, 35, 19, 40, 0, 55, 62, 87, 23, 113, 50, 79, 0, 0, 0, 33, 0, 67, 35, 72, 0, 103, 110, 151, 39, 193, 82, 127, 0, 143, 237, 286, 173, 336, 224, 277, 47, 388, 331, 388, 102, 446, 161, 222, 0, 0, 0, 65, 0, 131, 67, 136, 0
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,6
|
|
|
MATHEMATICA
| bdQ[m_, n_]:=Module[{a=DigitCount[m, 2, 0], b=DigitCount[m, 2, 1], c= DigitCount[ n, 2, 0], d=DigitCount[ n, 2, 1]}, a==c&&b==d]; Table[Total[ Select[Range[n-1], bdQ[#, n]&]], {n, 80}] (* From Harvey P. Dale, Sep 08 2011 *)
|
|
|
CROSSREFS
| Cf. A079072, A079073, A079071, A007088, A023416, A000120.
Sequence in context: A036297 A087935 A089877 * A047754 A048682 A186716
Adjacent sequences: A079071 A079072 A079073 * A079075 A079076 A079077
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Reinhard Zumkeller (reinhard.zumkeller(AT)gmail.com), Dec 21 2002
|
| |
|
|
