OFFSET
0,2
MATHEMATICA
a = {}; b = 0; s = 0; Do[m = n; s = s + 1/n!; If[c = n!/Denominator[s]; c > b, b = c; AppendTo[a, c]; Print[n, " = ", c]], {n, 0, 19622}]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, May 14 2004
STATUS
approved