editing
approved
editing
approved
A079275 := proc(n)
local a, d ;
a := 0 ;
for d in numtheory[divisors](n) do
if A001221(d) = 2 and A001222(d) = 2 then
a := a+1 ;
end if;
end do:
a ;
end proc:
seq(A079275(n), n=1..40) ; # R. J. Mathar, Jan 18 2021
approved
editing
proposed
approved
editing
proposed
(PARI) a(n) = binomial(omega(n), 2) \\ David A. Corneth, Sep 15 2020
proposed
editing
editing
proposed
(PARI) a(n) = sumdiv(n, d, (bigomega(d)==2) && (omega(d)==2)); \\ Michel Marcus, Sep 15 2020
proposed
editing
editing
proposed
Number of pairs of prime factors of n, (p,q), such that p < q. For example, the prime factors of 30 are 2, 3 and 5, so we have the ordered pairs (2,3), (2,5) and (3,5). - Wesley Ivan Hurt, Sep 14 2020
a(n) = Sum_{p|n, q|n, p,q prime, p<q} 1. - Wesley Ivan Hurt, Sep 14 2020
nonn,easy
approved
editing
reviewed
approved