OFFSET
1,1
COMMENTS
LINKS
Dumitru Damian, Table of n, a(n) for n = 1..20000
MATHEMATICA
Select[Range[800], PrimeOmega[DivisorSigma[1, #]]<PrimeOmega[#]&] (* Harvey P. Dale, Apr 02 2023 *)
PROG
(PARI) isA336359(n) = (bigomega(sigma(n))<bigomega(n));
(SageMath) b=sloane.A001222; [n for n in range(2, 10^3) if b(sigma(n))<b(n)] # Dumitru Damian, Nov 18 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Jul 20 2020
STATUS
approved