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