OFFSET
1,1
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
4 = 2^2 is a term since it has 1 nonunitary prime divisor, 2, and no unitary prime divisors.
180 = 2^2 * 3^2 * 5 is a term since it has 2 nonunitary prime divisors, 2 and 3, and one unitary prime divisor, 5.
MATHEMATICA
q[n_] := 2*Count[(e = FactorInteger[n][[;; , 2]]), 1] < Length[e]; Select[Range[700], q]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Oct 01 2021
STATUS
approved