This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A079072 #10 Feb 09 2018 10:40:05
%S A079072 0,0,0,1,0,2,7,4,0,4,13,13,23,24,37,11,0,8,25,35,43,54,75,51,63,97,
%T A079072 122,74,148,101,130,26,0,16,49,87,83,122,159,176,119,197,238,215,280,
%U A079072 258,303,160,159,324,373,349,423,400,453,207,475,507,564,262,622,321,382,57,0
%N A079072 Sum of numbers < n having in binary representation the same number of 0's as n.
%H A079072 Alois P. Heinz, <a href="/A079072/b079072.txt">Table of n, a(n) for n = 0..16383</a>
%p A079072 f:= n-> add(1-i, i=convert(n, base, 2)):
%p A079072 b:= proc(n) b(n):= b(n-1)+n*x^f(n) end: b(-1):=0:
%p A079072 a:= n-> coeff(b(n-1), x, f(n)):
%p A079072 seq(a(n), n=0..150); # _Alois P. Heinz_, Feb 08 2018
%t A079072 snbr[n_]:=Module[{dc=DigitCount[n,2,0]},Total[Select[Range[n-1], DigitCount[ #,2,0]==dc&]]]; Array[snbr,70] (* _Harvey P. Dale_, May 03 2012 *)
%Y A079072 Cf. A079073, A079074, A079070, A007088, A023416.
%K A079072 nonn
%O A079072 0,6
%A A079072 _Reinhard Zumkeller_, Dec 21 2002