OFFSET
1,1
COMMENTS
Prime factors taken without multiplicity. - Harvey P. Dale, Feb 04 2014
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..2000
EXAMPLE
20 = 2^2.5 and 20-(2+5) = 13 is prime hence 20 is in the sequence
MATHEMATICA
Select[Range[200], PrimeQ[#-Total[Transpose[FactorInteger[#]][[1]]]]&] (* Harvey P. Dale, Feb 04 2014 *)
PROG
(PARI) for(n=1, 100, if(isprime(n-sumdiv(n, d, isprime(d)*d))==1, print1(n, ", ")))
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Benoit Cloitre, Jun 10 2002
STATUS
approved