OFFSET
1,1
COMMENTS
Tetraprimes are the product of four distinct prime numbers (cf. A046386).
EXAMPLE
72474 = 2 * 3 * 47 * 257 is a tetraprime; 72471 = 3 * 7^2 * 17 * 29, 72472 = 2^3 * 9059, 72473 = 23^2 * 137, 72475 = 5^2 * 13 * 223, 72476 = 2^2 * 18119, 72477 = 3^2 * 8053 are all nonsquarefree numbers, so 72474 is a term.
MATHEMATICA
f[n_] := Module[{e = FactorInteger[n][[;; , 2]], p}, p = Times @@ e; If[p > 1, 0, If[e == {1, 1, 1, 1}, 1, -1]]]; SequencePosition[Array[f, 2*10^6], {0, 0, 0, 1, 0, 0, 0}][[;; , 1]] + 3 (* Amiram Eldar, Jan 19 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Massimo Kofler, Jan 19 2024
STATUS
approved