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,3

Links

Table of n, a(n) for n=1..20.

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

Mathematica

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

Crossrefs

Sequence in context: A360546 A347379 A224494 * A328555 A208927 A099612

Adjacent sequences: A095995 A095996 A095997 * A095999 A096000 A096001

Keyword

nonn

Author

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

Status

approved