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,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

Cf. A050765, A235425.

Sequence in context: A335142 A335143 A105651 * A199105 A329884 A074698

Adjacent sequences: A105776 A105777 A105778 * A105780 A105781 A105782

Keyword

nonn

Author

Joseph L. Pe, May 06 2005

Status

approved