OFFSET
1,1
EXAMPLE
MATHEMATICA
q[k_] := Module[{perm = FromDigits /@ Permutations[IntegerDigits[k]], d}, d = DivisorSigma[0, perm]; Min@ perm[[Position[d, Min[d]] // Flatten]] != k]; Select[Range[120], q] (* Amiram Eldar, Jan 24 2025 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Ctibor O. Zizka, Jan 23 2025
STATUS
approved