OFFSET
1,1
COMMENTS
Non-perfect-powers (A007916) are numbers with no proper integer roots.
EXAMPLE
The initial non-perfect-powers are 2, 3, 5, 6, 7, 10, 11, 12, 13, 14, 15, 17, 18, which increase by more than one after term 2, term 5, term 11, etc.
MATHEMATICA
radQ[n_]:=n>1&&GCD@@Last/@FactorInteger[n]==1;
ce=Select[Range[100], radQ];
Select[Range[Length[ce]-1], !ce[[#+1]]==ce[[#]]+1&]
PROG
(Python)
from itertools import count, islice
from sympy import perfect_power
def A375714_gen(): # generator of terms
a, b = -1, 0
for n in count(1):
c = not perfect_power(n)
if c:
a += 1
if b&(c^1):
yield a
b = c
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 10 2024
STATUS
approved