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 A076380 #9 Jan 08 2019 17:07:42 %S A076380 2,4,8,14,15,16,26,28,32,33,35,38,39,42,45,51,52,56,64,65,66,74,75,76, %T A076380 81,84,91,95,98,104,112,114,119,126,128,129,130,132,134,135,146,148, %U A076380 152,153,154,161,168,170,175,194,196,198,206,208,215,221,222,224,225 %N A076380 Sum of digits in base 2 is a divisor of sum of prime divisors (A008472). %C A076380 Prime divisors counted without multiplicity. - _Harvey P. Dale_, Jan 08 2019 %H A076380 Harvey P. Dale, <a href="/A076380/b076380.txt">Table of n, a(n) for n = 0..1000</a> %p A076380 A076380 := proc(n) local i,j,t,t1, sod, sopd; t := NULL; for i from 2 to n do t1 := i; sod := 0; while t1 <> 0 do sod := sod + (t1 mod 2); t1 := floor(t1/2); od; sopd := 0; j := 1; while ithprime(j) <= i do if i mod ithprime(j) = 0 then sopd := sopd+ithprime(j); fi; j := j+1; od; if sopd mod sod = 0 then t := t,i; fi; od; t; end; %t A076380 Select[Range[2,250],Divisible[Total[FactorInteger[#][[All,1]]],Total[ IntegerDigits[ #,2]]]&] (* _Harvey P. Dale_, Jan 08 2019 *) %Y A076380 Cf. A075657, A076381 - A076387. %K A076380 nonn,base %O A076380 0,1 %A A076380 _Floor van Lamoen_, Oct 08 2002