OFFSET
1,4
COMMENTS
Number of divisors of n of the form p, p^2, p*q, p^3, p^2*q, or p*q*r where p,q,r are primes.
LINKS
FORMULA
a(n) = Sum_{d|n} Sum_{k=1..3} [Omega(d) = k], where [ ] is the Iverson bracket.
MATHEMATICA
a[n_] := DivisorSum[n, 1 &, 0 < PrimeOmega[#] <= 3 &]; Array[a, 100] (* Amiram Eldar, Dec 26 2021 *)
PROG
(PARI) A350338(n) = sumdiv(n, d, (d>1)*(bigomega(d)<=3)); \\ Antti Karttunen, Nov 02 2022
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Dec 25 2021
STATUS
approved