This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A105779 #8 Feb 11 2014 19:05:43 %S A105779 24,48,54,144,288,384,648,972,1260,1728,1792,1936,1944,2304,3584,5184, %T A105779 6250,6912,7168,8748,8788,9216,9604,10000,10125,10816,11760,13122, %U A105779 13824,17640,21632,21952,23328,24255,25088,26244,27648,33264,35937,37752 %N A105779 Numbers n such that n + (sum of prime factors of n) = next prime after n. %H A105779 Giovanni Resta, <a href="/A105779/b105779.txt">Table of n, a(n) for n = 1..10000</a> %e A105779 24 + (sum of prime factors of 24) = 24 + (2 + 3) = 29, the next prime after 24. So 24 belongs to the sequence. %t A105779 Select[Range[2, 10^5], NextPrime[#] == # + Plus @@ First /@ FactorInteger@# &] %o A105779 (PARI) sopf(n)=my(f=factor(n)[,1]); sum(i=1,#f,f[i]) %o A105779 is(n)=nextprime(n+1)-n==sopf(n) \\ _Charles R Greathouse IV_, Jan 10 2014 %Y A105779 Cf. A050765, A235425. %K A105779 nonn %O A105779 1,1 %A A105779 _Joseph L. Pe_, May 06 2005