OFFSET
1,1
COMMENTS
The powers of primes themselves are 8, 25, 121, 2187, 32761, ... (A068315).
MATHEMATICA
v=Select[Range[100], PrimePowerQ];
Select[Range[Length[v]-1], FreeQ[Range[v[[#]], v[[#+1]]], _?PrimeQ]&]
CROSSREFS
For perfect powers instead of prime powers we have A274605.
Positions of 0 in A366835.
A000015 gives the least prime power >= n.
A031218 gives the greatest prime power <= n.
A131605 finds perfect powers that are not prime powers.
A246655 lists the prime powers.
KEYWORD
nonn,more
AUTHOR
Gus Wiseman, Dec 22 2024
STATUS
approved
