A195666 Numbers whose sum of prime factors is 17.
17, 52, 88, 99, 147, 175, 210, 224, 250, 252, 300, 320, 360, 384, 405, 432, 486
Offset: 1
Programs
-
Mathematica
Select[Range[1000], Total[Times @@ Transpose[FactorInteger[#]]] == 17 &] (* T. D. Noe, Sep 22 2011 *)
Comments