A076383 Numbers n such that sum of digits in base 5 is a divisor of sum of prime divisors (A008472).

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

Author

Floor van Lamoen, Oct 08 2002

Keywords

• nonn
• base

Crossrefs

Cf. A075657, A076381 - A076387.

Programs

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;