OFFSET
1,2
COMMENTS
EXAMPLE
The non-perfect-powers are 2, 3, 5, 6, 7, 10, 11, 12, 13, ... which increase by one after positions 1, 3, 4, 6, ...
MATHEMATICA
radQ[n_]:=n>1&&GCD@@Last/@FactorInteger[n]==1;
Join@@Position[Differences[Select[Range[100], radQ]], 1]
PROG
(Python)
from itertools import count, islice
from sympy import perfect_power
def A375740_gen(): # generator of terms
a, b = -1, 0
for n in count(2):
c = not perfect_power(n)
if c:
a += 1
if b&c:
yield a
b = c
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Sep 10 2024
STATUS
approved