OFFSET
1,1
COMMENTS
n is included if A161606(n) is >= 2.
EXAMPLE
The prime factorization of 28 is 2^2 * 7^1. The sum of the distinct prime divisors of 28 is 2+7 = 9. The sum of the prime-factorization exponents of 28 is 2+1 = 3. Since gcd(9,3) = 3 is > 1, then 28 is included in this sequence.
MATHEMATICA
okQ[n_]:=Module[{fitr=Transpose[FactorInteger[n]]}, GCD[Plus@@First[fitr], Plus@@Last[fitr]]>1]; Select[Range[500], okQ] (* Harvey P. Dale, Jan 24 2010 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Leroy Quet, Jun 18 2009
EXTENSIONS
More terms from Harvey P. Dale, Jan 24 2010
STATUS
approved