Powers such that the interval to the previous power contains exactly four primes.
361, 1024, 6889, 10648, 19683, 21952, 274625, 373321, 1030301, 3511876
1
No other terms less than 10^16. Is this sequence finite?
T. D. Noe, Plot of 10 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]], 4], AppendTo[lst, {t[[n, 1]], t[[n + 1, 1]]}]]], {n, Length[t] - 1}]; Last /@ lst
Cf. A116086, A116455 (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