OFFSET
1,2
COMMENTS
EXAMPLE
6 is in the sequence because 6! / sigma(6) = 720 / 12 = 60 (integer).
MATHEMATICA
Select[Range[80], IntegerQ[#!/DivisorSigma[1, #]]&] (* Harvey P. Dale, Jul 20 2022 *)
PROG
(Magma) [n: n in [1..1000] | IsIntegral(Factorial(n)/&+[d: d in Divisors(n)])]
(PARI) isok(n) = ((n! % sigma(n)) == 0); \\ Michel Marcus, Apr 26 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Jaroslav Krizek, Apr 26 2019
STATUS
approved