OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..86
Amiram Eldar, Table of n, a(n), A091050(a(n)) for n = 1..86
EXAMPLE
1 has one divisor that is a perfect power, 1. The next number with more than one perfect power divisor is 4, with 2 such divisors, 1 and 4. Therefore a(2) = 4.
MATHEMATICA
powDivNum[n_] := 1 + DivisorSum[n, 1 &, GCD @@ FactorInteger[#][[;; , 2]] > 1 &]; dm = 0; seq = {}; Do[d = powDivNum[n]; If[d > dm, dm = d; AppendTo[seq, n]], {n, 1, 10^6}]; seq
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Apr 29 2020
STATUS
approved