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,1

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

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 *)

Crossrefs

Cf. A075657, A076381 - A076387.

Sequence in context: A354687 A253766 A368490 * A370840 A049133 A063033

Adjacent sequences: A076377 A076378 A076379 * A076381 A076382 A076383

Keyword

nonn,base

Author

Floor van Lamoen, Oct 08 2002

Status

approved