OFFSET
1,1
COMMENTS
Any term of A336442 is a multiple of at least one term of this sequence.
LINKS
David A. Corneth, Table of n, a(n) for n = 1..10347
EXAMPLE
MATHEMATICA
divQ[n_] := AnyTrue[Subsets[Divisors[n], {3}], And @@ CoprimeQ @@@ Subsets[#, {2}] && #[[3]] < 2 #[[1]] &]; primQ[n_] := divQ[n] && AllTrue[Most[Divisors[n]], ! divQ[#] &]; Select[Range[3333], primQ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, Jul 21 2020
STATUS
approved