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

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

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