|
Search: id:A091624
|
|
|
| A091624 |
|
Lesser of consecutive primes such that their sum is a perfect power (A001597). |
|
+0
5
|
|
| 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; listen)
|
|
|
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.
Adjacent sequences: A091621 A091622 A091623 this_sequence A091625 A091626 A091627
Sequence in context: A126587 A108126 A106256 this_sequence A106078 A087908 A117012
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 24 2004
|
|
|
Search completed in 0.002 seconds
|
