OFFSET
1,1
COMMENTS
Also numbers appearing exactly once in A378249.
EXAMPLE
The consecutive perfect powers 125 and 128 have interval (125, 126, 127, 128) with unique prime 127, so 128 is in the sequence.
MATHEMATICA
radQ[n_]:=n>1&&GCD@@Last/@FactorInteger[n]==1;
y=Table[NestWhile[#+1&, Prime[n], radQ[#]&], {n, 1000}];
Select[Union[y], Count[y, #]==1&]
CROSSREFS
The previous prime is A178700.
If the same interval contains at least one prime we get A378250.
For next instead of previous perfect power we have A378355.
Swapping "prime" with "perfect power" gives A378364.
A069623 counts perfect powers <= n.
A076411 counts perfect powers < n.
A080769 counts primes between perfect powers.
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Dec 17 2024
STATUS
approved