OFFSET
1,1
COMMENTS
Non-perfect-powers A007916 are numbers without a proper integer root.
FORMULA
Numbers k > 0 such that k-1 is a perfect power (A001597) but k is not.
EXAMPLE
MATHEMATICA
radQ[n_]:=n>1&&GCD@@Last/@FactorInteger[n]==1;
Min/@Split[Select[Range[100], radQ], #1+1==#2&]//Most
- or -
radQ[n_]:=n>1&&GCD@@Last/@FactorInteger[n]==1;
Select[Range[100], radQ[#]&&!radQ[#-1]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Aug 28 2024
STATUS
approved