S000147


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

144, 216, 2048, 7776, 42875, 50653, 131072, 183250432

1

S000147

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

T. D. Noe, Plot of 8 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]], 3], 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-
S000151 (power intervals containing 1 to 5 primes)

nonn,more

T. D. Noe, Jul 17 2014

© Tony D Noe 2014-2015