A076380 Sum of digits in base 2 is a divisor of sum of prime divisors (A008472).

2, 4, 8, 14, 15, 16, 26, 28, 32, 33, 35, 38, 39, 42, 45, 51, 52, 56, 64, 65, 66, 74, 75, 76, 81, 84, 91, 95, 98, 104, 112, 114, 119, 126, 128, 129, 130, 132, 134, 135, 146, 148, 152, 153, 154, 161, 168, 170, 175, 194, 196, 198, 206, 208, 215, 221, 222, 224, 225

Offset: 0

Author

Floor van Lamoen, Oct 08 2002

Keywords

• nonn
• base

Comments

Prime divisors counted without multiplicity. - Harvey P. Dale, Jan 08 2019

Links

• Harvey P. Dale, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A075657, A076381 - A076387.

Programs

Maple

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;

Mathematica

Select[Range[2,250],Divisible[Total[FactorInteger[#][[All,1]]],Total[ IntegerDigits[ #,2]]]&] (* Harvey P. Dale, Jan 08 2019 *)