Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A076384
Numbers n such that sum of digits in base 6 is a divisor of sum of prime divisors (A008472).
1
2, 3, 5, 6, 25, 30, 36, 38, 39, 42, 60, 78, 84, 90, 106, 114, 120, 122, 126, 130, 150, 152, 156, 171, 178, 180, 183, 186, 187, 194, 198, 216, 217, 218, 219, 221, 222, 228, 230, 240, 244, 252, 255, 258, 259, 260, 262, 264, 270, 287, 294, 297, 299, 300, 303, 321
OFFSET
1,1
MAPLE
A076384 := 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 6); t1 := floor(t1/6); 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, 350], Divisible[Total[Transpose[FactorInteger[#]][[1]]], Total[ IntegerDigits[#, 6]]]&] (* Harvey P. Dale, May 26 2013 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Floor van Lamoen, Oct 08 2002
STATUS
approved