OFFSET
1,2
COMMENTS
The next term, if it exists, is > 2000000.
MATHEMATICA
Select[Range[1000], Divisible[#!, PartitionsQ[#]]&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Vaclav Kotesovec, Jul 06 2018
STATUS
approved