OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
powQ[n_] := Min[FactorInteger[n][[;; , 2]]] > 1; q[n_] := powQ[Max[ FactorInteger[n][[;; , 2]] ]]; Select[Range[1200], q]
PROG
(PARI) ispow(n) = n > 1 && ispowerful(n);
is(n) = n > 1 && ispow(vecmax(factor(n)[, 2]))
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Jul 12 2024
STATUS
approved