%I #8 Jan 04 2019 18:57:22
%S 3,17,47,61,71,107,283,881,1151,1913,2591,3527,4049,4093,6047,7193,
%T 7433,10973,15137,20807,21617,24197,26903,28793,34847,37039,46817,
%U 53129,56443,69191,74489,83231,84047,98563,103049,103967,109507,110441,112337
%N Lesser of consecutive primes whose sum is a perfect power (A001597).
%H Hans Havermann, <a href="/A091624/b091624.txt">Table of n, a(n) for n = 1..10000</a>
%t NextPrim[n_] := Block[{k = n + 1}, While[ !PrimeQ[k], k++ ]; k]; PrimeExponents[n_] := Flatten[ Table[ #[[2]], {1}] & /@ FactorInteger[n]]; p = q = 2; l = {}; Do[q = NextPrim[p]; If[ Apply[ GCD, PrimeExponents[p + q]] > 1, AppendTo[l, p]]; p = q, {n, 2, 13000}]
%Y Cf. A071087.
%Y Cf. A061275.
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jan 24 2004