OFFSET
1,1
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..10000
EXAMPLE
24 + (sum of prime factors of 24) = 24 + (2 + 3) = 29, the next prime after 24. So 24 belongs to the sequence.
MATHEMATICA
Select[Range[2, 10^5], NextPrime[#] == # + Plus @@ First /@ FactorInteger@# &]
PROG
(PARI) sopf(n)=my(f=factor(n)[, 1]); sum(i=1, #f, f[i])
is(n)=nextprime(n+1)-n==sopf(n) \\ Charles R Greathouse IV, Jan 10 2014
CROSSREFS
KEYWORD
nonn
AUTHOR
Joseph L. Pe, May 06 2005
STATUS
approved