OFFSET
1,6
COMMENTS
EXAMPLE
Between prime(4) = 7 and prime(5) = 11 the only non-perfect-power is 10, so a(4) = 1.
MATHEMATICA
radQ[n_]:=n>1&&GCD@@Last/@FactorInteger[n]==1;
Table[Length[Select[Range[Prime[n]+1, Prime[n+1]-1], radQ]], {n, 100}]
CROSSREFS
Positions of 1 are latter terms of A029707.
Positions of terms > 1 appear to be A049579.
For prime-powers instead of non-perfect-powers we have A080101.
For non-prime-powers instead of non-perfect-powers we have A368748.
Perfect-powers in the same range are counted by A377432.
A081676 gives the greatest perfect-power <= n.
A377468 gives the least perfect-power > n.
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 02 2024
STATUS
approved