OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
powQ[n_] := n == 1 || Min[FactorInteger[n][[;; , 2]]] > 1; Select[Range[100], AllTrue[FactorInteger[#][[;; , 2]], powQ] &]
PROG
(PARI) ispow(n) = {n == 1 || vecmin(factor(n)[, 2]) > 1; }
is(n) = {my(e = factor(n)[, 2]); if(n == 1, return(1)); for(i=1, #e, if(!ispow(e[i]), return(0))); 1; }
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Mar 03 2023
STATUS
approved