%I A114519
%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,19,
%T A114519 17,53,29,31,59,61,67,71,17,73,23,79,43,83,19,89,97,29,101,103,107,31,
%U A114519 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 Leroy Quet, <a href="http://www.prism-of-spirals.net/">Home Page</a> 
               (listed in lieu of email address)
%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[ # ] &] (*Chandler*)
%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.
%Y A114519 Sequence in context: A002334 A115732 A048947 this_sequence A126762 A082048 
               A113459
%Y A114519 Adjacent sequences: A114516 A114517 A114518 this_sequence A114520 A114521 
               A114522
%K A114519 nonn
%O A114519 1,1
%A A114519 Leroy Quet Dec 05 2005
%E A114519 Extended by Ray Chandler (rayjchandler(AT)sbcglobal.net) and Lambert 
               Herrgesell (zero815(AT)googlemail.com), Dec 07 2005