OFFSET
1,2
EXAMPLE
1 is a term because it has no prime factors and thus no duplicates.
96 is a term because 96 = 2^5 * 3^1 and 1, 2, 3 and 5 are distinct.
24 is not a term because 24 = 2^3 * 3^1 where the number 3 occurs twice.
MATHEMATICA
q[k_] := UnsameQ @@ Flatten[FactorInteger[k]]; Join[{1}, Select[Range[2, 150], q]] (* Amiram Eldar, Sep 08 2025 *)
PROG
(Python)
from sympy import factorint
def ok(n):
f = factorint(n)
return len(L:=list(f.keys())+list(f.values())) == len(set(L))
print([k for k in range(1, 150) if ok(k)]) # Michael S. Branicky, Sep 07 2025
(PARI) isok(k) = my(f=factor(k), v=concat(f[, 1], f[, 2])); #v == #Set(v); \\ Michel Marcus, Sep 08 2025
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Kalle Siukola, Sep 07 2025
STATUS
approved
