OFFSET
1,2
COMMENTS
MATHEMATICA
Select[Range[200], Divisible[# - 1, DivisorSigma[0, #]] &] (* Amiram Eldar, Jun 03 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Max Alekseyev, Jun 03 2022
STATUS
approved