login
A105779
Numbers n such that n + (sum of prime factors of n) = next prime after n.
3
24, 48, 54, 144, 288, 384, 648, 972, 1260, 1728, 1792, 1936, 1944, 2304, 3584, 5184, 6250, 6912, 7168, 8748, 8788, 9216, 9604, 10000, 10125, 10816, 11760, 13122, 13824, 17640, 21632, 21952, 23328, 24255, 25088, 26244, 27648, 33264, 35937, 37752
OFFSET
1,1
LINKS
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
Sequence in context: A335142 A335143 A105651 * A199105 A329884 A074698
KEYWORD
nonn
AUTHOR
Joseph L. Pe, May 06 2005
STATUS
approved