A160039 Numerators of n!*(1 + 1/2 + 1/3 +...+ 1/(n+1)).
1, 3, 11, 25, 274, 294, 13068, 13698, 114064, 1062864, 120543840, 123870240, 19802759040, 20247546240, 289277533440, 4420892649600, 1223405590579200, 1243166003251200, 431565146817638400, 437647401838080000
Offset: 0
Crossrefs
Cf. A014973 (denominators).
Programs
-
Maple
FH := n -> numer(n!*add(1/i,i=1..n+1)); seq(FH(i),i=0..20);
-
Mathematica
Table[Numerator[n! HarmonicNumber[n+1]], {n, 0, 19}] (* Jean-François Alcover, Jun 17 2019 *)
Comments