

A091624


Lesser of consecutive primes whose sum is a perfect power (A001597).


8



3, 17, 47, 61, 71, 107, 283, 881, 1151, 1913, 2591, 3527, 4049, 4093, 6047, 7193, 7433, 10973, 15137, 20807, 21617, 24197, 26903, 28793, 34847, 37039, 46817, 53129, 56443, 69191, 74489, 83231, 84047, 98563, 103049, 103967, 109507, 110441, 112337
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,1


LINKS

Hans Havermann, Table of n, a(n) for n = 1..10000


MATHEMATICA

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}]


CROSSREFS

Cf. A071087.
Cf. A061275.
Sequence in context: A126587 A108126 A106256 * A106078 A087908 A152472
Adjacent sequences: A091621 A091622 A091623 * A091625 A091626 A091627


KEYWORD

nonn


AUTHOR

Robert G. Wilson v, Jan 24 2004


STATUS

approved



