login
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
OFFSET
1,1
LINKS
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
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 24 2004
STATUS
approved