login
A076383
Numbers n such that sum of digits in base 5 is a divisor of sum of prime divisors (A008472).
1
2, 3, 5, 21, 25, 27, 30, 35, 42, 78, 105, 110, 115, 123, 125, 126, 130, 132, 141, 150, 153, 155, 159, 161, 170, 175, 186, 187, 195, 201, 228, 230, 231, 252, 258, 260, 264, 276, 290, 301, 327, 329, 340, 357, 372, 378, 381, 395, 396, 402, 410, 411, 429, 434
OFFSET
1,1
MAPLE
A076383 := 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 5); t1 := floor(t1/5); 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;
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Floor van Lamoen, Oct 08 2002
STATUS
approved