%I A131647
%S A131647 30,70,105,231,286,627,646,805,897,1122,1581,1798,2730,2958,2967,3055,
%T A131647 3526,3570,4070,4543,5487,5658,6461,6745,7198,7881,8778,8970,9222,9282,
%U A131647 9717,10366,10370,10626,10707,11130,14231,15015,16377,16530,19866
%N A131647 Numbers that are products of distinct primes and divisible by the sum 
               of those primes.
%e A131647 1122 = 2*3*11*17 and 1122 is divisible by 2+3+11+17=33.
%t A131647 Select[Range[2, 20000], PrimeQ[ # ] == False && Union[Transpose[FactorInteger[ 
               # ]][[2]]] == {1} && Mod[ #, Plus @@ Transpose[FactorInteger[ # ]][[1]]] 
               == 0 &]
%Y A131647 Sequence in context: A064623 A112343 A164596 this_sequence A071141 A071312 
               A071142
%Y A131647 Adjacent sequences: A131644 A131645 A131646 this_sequence A131648 A131649 
               A131650
%K A131647 nonn
%O A131647 1,1
%A A131647 Tanya Khovanova (tanyakh(AT)yahoo.com), Sep 08 2007