|
%I
%S 1,2,20,130,4000,34385,127658,154375,338143,1462240,22936888,
%T 104087491,756449941,1252467550,3953591108800,110329835126080,
%U 112834800815577880,149099873130116779,26141903882328110417
%N Records in A093101.
%t 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}]
%Y Cf. A093101, A093651.
%K nonn
%O 0,2
%A _Robert G. Wilson v_, May 14 2004
|
