OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
28 has the prime factorization 2^2 * 7^1. The sum of the exponents, 2+1 = 3, divides the sum of the distinct prime divisors, 2+7 = 9. So 28 is in the sequence.
MATHEMATICA
seddpQ[n_]:=Module[{fi=Transpose[FactorInteger[n]]}, Divisible[Total[ fi[[1]]], Total[ fi[[2]]]]]; Select[Range[2, 150], seddpQ] (* Harvey P. Dale, Apr 13 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jun 07 2008
EXTENSIONS
More terms from D. S. McNeil, Mar 23 2009
STATUS
approved