OFFSET
1,1
COMMENTS
PROG
(Magma) [n: n in [1..10000] | not 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