A093647 Records in A093101.

1, 2, 20, 130, 4000, 34385, 127658, 154375, 338143, 1462240, 22936888, 104087491, 756449941, 1252467550, 3953591108800, 110329835126080, 112834800815577880, 149099873130116779, 26141903882328110417

Offset

0,2

Links

Table of n, a(n) for n=0..18.

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

Cf. A093101, A093651.

Sequence in context: A203605 A373614 A094254 * A244887 A279112 A229454

Adjacent sequences: A093644 A093645 A093646 * A093648 A093649 A093650

Keyword

nonn

Author

Robert G. Wilson v, May 14 2004

Status

approved