OFFSET
1,1
COMMENTS
LINKS
EXAMPLE
8 = 2^3 is a term since its prime factorization has exactly one exponent, 3, that is larger than 2.
MATHEMATICA
q[n_] := Count[FactorInteger[n][[;; , 2]], _?(# > 2 &)] == 1; Select[Range[350], q]
PROG
(PARI) is(k) = #select(x -> x > 2, factor(k)[, 2]) == 1;
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Aug 01 2024
STATUS
approved