A095998 n! * (fractional part of n-th harmonic number).

0, 1, 5, 2, 34, 324, 2988, 28944, 300816, 3371040, 793440, 49438080, 1121696640, 21930773760, 416139897600, 7965912729600, 156343306291200, 3169866941337600, 66629845591142400, 1454242012231680000

Offset: 1

Author

Robert G. Wilson v, Jul 19 2004, based on a suggestion from Leroy Quet, Jun 18 2004

Keywords

• nonn

Programs

Mathematica

f[n_] := n!*FractionalPart[HarmonicNumber[n]]; Table[ f[n], {n, 22}]

Formula

a(n) = n! * fractional part ( harmonic number (n)).

a(n) also equals n!*(sum{k=1 to n} 1/k) (mod n!). - Leroy Quet, Mar 20 2008