A076382 Numbers n such that sum of digits in base 4 is a divisor of sum of prime divisors (A008472).
2, 3, 4, 8, 9, 16, 26, 32, 42, 64, 65, 78, 81, 84, 86, 92, 94, 95, 104, 114, 115, 119, 128, 130, 143, 146, 156, 161, 168, 170, 178, 186, 209, 212, 215, 228, 234, 244, 256, 258, 259, 260, 287, 294, 308, 312, 319, 322, 326, 332, 335, 336, 338, 340, 342, 343, 344
Offset: 1
Programs
-
Maple
A076382 := 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 4); t1 := floor(t1/4); 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;