OFFSET
1,1
COMMENTS
LINKS
MATHEMATICA
A389463Q[k_] := With[{m = DivisorSigma[1, k] - # - k}, m > 0 && Divisible[m, k - #]] & [Times @@ FactorInteger[k][[All, 1]] - 1];
Select[Range[1500], A389463Q] (* Paolo Xausa, Oct 07 2025 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Antti Karttunen, Oct 07 2025
STATUS
approved
