OFFSET
1,4
LINKS
MATHEMATICA
Table[PrimeOmega[n] - PrimeOmega[GCD[n, DivisorSigma[1, n]]], {n, 1, 100}] (* Amiram Eldar, Feb 17 2021 *)
PROG
(PARI) A341524(n) = (bigomega(n) - bigomega(gcd(n, sigma(n))));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Feb 17 2021
STATUS
approved