OFFSET
1,2
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
q[n_] := Max[(e = FactorInteger[n][[;; , 2]])] < 3 && Length @ Union[e] == Length[e]; Select[Range[200], q] (* Amiram Eldar, Feb 16 2021 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Gerasimov Sergey, Oct 31 2013
STATUS
approved