close
login
A389462
Numbers whose sum of proper divisors (A001065) is equal to or greater than their squarefree kernel (A007947).
5
4, 6, 8, 9, 12, 16, 18, 20, 24, 25, 27, 28, 30, 32, 36, 40, 42, 44, 45, 48, 49, 50, 52, 54, 56, 60, 63, 64, 66, 68, 70, 72, 75, 76, 78, 80, 81, 84, 88, 90, 92, 96, 98, 99, 100, 102, 104, 108, 112, 114, 116, 117, 120, 121, 124, 125, 126, 128, 132, 135, 136, 138, 140, 144, 147, 148, 150, 152, 153, 156, 160, 162, 164
OFFSET
1,1
COMMENTS
Numbers k for which A389460(k) > k, or equally, for which A001065(k) > A075423(k).
LINKS
FORMULA
{k | A001065(k) >= A007947(k)}.
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
Positions of positive terms in A389461.
Subsequences: A023196, A246547, A389463.
Sequence in context: A079142 A062002 A090419 * A209799 A028958 A200878
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 07 2025
STATUS
approved