A075657 Numbers n such that sum of digits (A007953) is a divisor of sum of prime divisors (A008472).

2, 3, 5, 7, 10, 42, 70, 84, 91, 100, 104, 110, 114, 115, 130, 143, 148, 154, 160, 170, 182, 185, 212, 215, 221, 222, 228, 230, 234, 238, 250, 266, 295, 304, 312, 326, 336, 372, 402, 412, 425, 437, 460, 468, 485, 494, 516, 555, 558, 583, 700, 702, 721, 730

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Example

digsum(10) = 1 + 0 = 1, PrimeDivisors(10) = PrimeDivisors(2 *5) = {2,5} and sopf(10) = 2 + 5 = 7 = 7*1.
digsum(154) = 1 + 5 + 4 = 10, PrimeDivisors(154) = PrimeDivisors(2 * 7 * 11) = {2,7,11} and sopf(154) = 2+7+11 = 20 = 2*10.

Mathematica

Select[Range[2, 800], Divisible[Total[Select[Divisors[#], PrimeQ]], Total[ IntegerDigits[#]]]&] (* Harvey P. Dale, Sep 23 2012 *)

Prog

(Magma) [m:m in [2..730]| &+PrimeDivisors(m) mod &+Intseq(m) eq 0]; // Marius A. Burtea, Jul 11 2019

Crossrefs

Sequence in context: A283809 A104622 A033843 * A039711 A194261 A194262

Adjacent sequences: A075654 A075655 A075656 * A075658 A075659 A075660

Keyword

nonn,base

Author

Floor van Lamoen, Sep 23 2002 and Sep 30 2002

Status

approved