A091624 - OEIS

The OEIS is supported by the many generous donors to the OEIS Foundation.

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Other ways to Give

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

(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