OFFSET
1,2
EXAMPLE
Primes 8 and 9 are 19 and 23, and the interval (20,21,22) contains no prime-powers, so 8 is in the sequence.
MATHEMATICA
perpowQ[n_]:=n==1||GCD@@FactorInteger[n][[All, 2]]>1;
Select[Range[100], Length[Select[Range[Prime[#]+1, Prime[#+1]-1], perpowQ]]==0&]
CROSSREFS
For prime-powers (instead of perfect-powers) we have A377286.
These are the positions of 0 in A377432.
A000015 gives the least prime-power >= n.
A081676 gives the nearest perfect-power up to n.
A377468 gives the nearest perfect-power after n.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 02 2024
STATUS
approved