A105779 Numbers n such that n + (sum of prime factors of n) = next prime after n.

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

Author

Joseph L. Pe, May 06 2005

Keywords

• nonn

Examples

			24 + (sum of prime factors of 24) = 24 + (2 + 3) = 29, the next prime after 24. So 24 belongs to the sequence.
		

Links

• Giovanni Resta, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A050765, A235425.

Programs

Mathematica

Select[Range[2, 10^5], NextPrime[#] == # + Plus @@ First /@ FactorInteger@# &]

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