OFFSET
1,1
COMMENTS
Prime factors are totaled with multiplicity, e.g., 8 = 2*2*2 so the sum of the prime factors of 8 is 6. - Harvey P. Dale, Jun 14 2011
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
E.g., 161 = 7*23; 161 - (7 + 23) = 161 - 30 = 131, which is prime.
MATHEMATICA
Select[Range[250], CompositeQ[#]&&PrimeQ[#-Total[Times@@@ FactorInteger[ #]]]&] (* Harvey P. Dale, Jun 14 2011 *)
CROSSREFS
KEYWORD
nonn,nice
AUTHOR
Patrick De Geest, Aug 15 1999
STATUS
approved