OFFSET
1,1
LINKS
Antti Karttunen, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Range[120], DivisorSigma[1, #] + 1 - Times @@ FactorInteger[#][[;; , 1]] > # &] (* Michael De Vlieger, Oct 07 2025 *)
PROG
(PARI) is_A389462(k) = ((sigma(k)-k) >= factorback(factor(k)[, 1]));
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 07 2025
STATUS
approved
