OFFSET
1,2
COMMENTS
Next term after 48018, if it exists, is greater than 100000.
LINKS
Eric Weisstein's World of Mathematics, Double Factorial.
EXAMPLE
585 is a term because the sum of the digits of 585!! = 2925 is divisible by 585.
MATHEMATICA
Do[If[Mod[Plus @@ IntegerDigits[n!! ], n] == 0, Print[n]], {n, 1, 100000}]
CROSSREFS
KEYWORD
nonn,base,hard,more
AUTHOR
Ryan Propper, Jul 11 2005
STATUS
approved