S000151


Powers such that the interval to the previous power contains exactly five primes.

243, 512, 1764, 9261, 24389, 45118089, 49028004, 199176769, 18821096100, 24490059264, 28849701904

1

S000151

No other terms less than 10^16. Is this sequence finite?

T. D. Noe, Plot of 11 terms

(Mma) PrimeCountQ[n1_, n2_, k_] := Module[{n = n1 + 1, cnt = 0}, While[n < n2 && cnt < k + 1, If[PrimeQ[n], cnt++]; n++]; cnt == k && n == n2]; nn = 10^12; lim = Log[2, nn]; ps = Select[Range[lim], PrimeQ]; t = Table[Table[{i^n, n}, {i, 2, nn^(1/n)}], {n, ps}]; t = Sort[Flatten[t, 1]]; lst = {}; Do[If[t[[n, 2]] > 2 || t[[n + 1, 2]] > 2, If[PrimeCountQ[t[[n, 1]], t[[n + 1, 1]], 5], AppendTo[lst, {t[[n, 1]], t[[n + 1, 1]]}]]], {n, Length[t] - 1}]; Last /@ lst

Cf. A116086A116455 (similar, but no primes), A178700 (single primes between powers).
Cf. S000142-S000150 (power intervals containing 1 to 5 primes)

nonn,more

T. D. Noe, Jul 17 2014

© Tony D Noe 2014-2015