OFFSET
1,1
COMMENTS
Non-perfect-powers A007916 are numbers with no proper integer roots.
FORMULA
For n > 2 we have a(n) = A053289(n+1) - 1.
EXAMPLE
MATHEMATICA
radQ[n_]:=n>1&&GCD@@Last/@FactorInteger[n]==1;
Length/@Split[Select[Range[100], radQ], #1+1==#2&]//Most
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Aug 27 2024
STATUS
approved