OFFSET
1,1
COMMENTS
The asymptotic density of this sequence is Product_{p primes} (1 - 1/p^4 + 1/p^5) * ((Sum_{p prime} (p-1)/(p^5 - p + 1))^2 - Sum_{p prime} ((p-1)^2/(p^5 - p + 1)^2)) / 2 = 0.00032582100547959312658... (Elma and Martin, 2024).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
Ertan Elma and Greg Martin, Distribution of the number of prime factors with a given multiplicity, Canadian Mathematical Bulletin, Vol. 67, No. 4 (2024), pp. 1107-1122; arXiv preprint, arXiv:2406.04574 [math.NT], 2024.
MATHEMATICA
f[p_, e_] := If[e == 4, 1, 0]; s[1] = 0; s[n_] := Plus @@ f @@@ FactorInteger[n]; Select[Range[120000], s[#] == 2 &]
PROG
(PARI) isok(k) = vecsum(apply(x -> if(x == 4, 1, 0), factor(k)[, 2])) == 2;
CROSSREFS
Numbers that have exactly two exponents in their prime factorization that are equal to k: A386797 (k=2), A386801 (k=3), this sequence (k=4), A386809 (k=5).
KEYWORD
nonn,easy
AUTHOR
Amiram Eldar, Aug 03 2025
STATUS
approved
