OFFSET
1,2
EXAMPLE
72 = 2^3 * 3^2 is in the sequence because 3 and 2 are pairwise indivisible.
MATHEMATICA
Select[Range[100], Select[Tuples[Last/@FactorInteger[#], 2], And[UnsameQ@@#, Divisible@@#]&]=={}&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Aug 01 2018
STATUS
approved