A093651 Where records occur in A093101.

0, 3, 7, 17, 19, 64, 81, 82, 90, 147, 363, 546, 608, 657, 819, 1459, 2747, 5880, 8296

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, A093647.

Sequence in context: A064699 A113304 A194945 * A181420 A333291 A254680

Adjacent sequences: A093648 A093649 A093650 * A093652 A093653 A093654

Keyword

nonn

Author

Robert G. Wilson v, May 14 2004

Extensions

Missing 657 inserted by Sean A. Irvine, Mar 14 2024

Status

approved