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