OFFSET
1,1
COMMENTS
If k is a term then m*k is a term of A363171 for all m >= 1.
The least odd term is a(6) = 105, and the least term that is coprime to 6 is a(34832) = 37182145.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
q[n_] := DivisorSigma[-1, n * Times @@ FactorInteger[n][[;; , 1]]] > 2; primQ[n_] := q[n] && AllTrue[Divisors[n], # == n || ! q[#] &]; Select[Range[3200], primQ]
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Amiram Eldar, May 19 2023
STATUS
approved