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 A114519 #12 Oct 11 2019 16:27:40 %S A114519 2,3,5,5,7,7,11,7,13,17,11,19,13,23,11,11,29,31,19,13,37,13,41,43,47, %T A114519 19,17,53,29,31,59,61,67,71,17,73,23,79,43,83,19,89,97,29,101,103,107, %U A114519 31,109,23,113,61,127,131,137,139,73,41,149,151,157,37,83,163,19,167,47 %N A114519 a(n) = A008475(A114518(n)). %H A114519 Nathaniel Johnston, <a href="/A114519/b114519.txt">Table of n, a(n) for n = 1..10000</a> %e A114519 A114518(15) = 24 = 2^3 * 3 and 2^3 + 3 = 11 (which is prime). So a(15) = 11. %t A114519 f[n_] := Plus @@ Power @@@ FactorInteger[n]; Select[f /@ Range[175], PrimeQ[ # ] &] (* _Ray Chandler_, Dec 07 2005 *) %o A114519 (PARI) A008475(n)=local(t);if(n<1,0,t=factor(n);sum(k=1,matsize(t)[1],t[k,1]^t[k,2])); for(i=1,500,if(isprime(A008475(i)),print1(A008475(i),","))) (Herrgesell) %Y A114519 Cf. A008475, A114518. %K A114519 nonn %O A114519 1,1 %A A114519 _Leroy Quet_, Dec 05 2005 %E A114519 Extended by _Ray Chandler_ and Lambert Herrgesell (zero815(AT)googlemail.com), Dec 07 2005