login
Numerators of n!*(1 + 1/2 + 1/3 +...+ 1/(n+1))
1

%I #7 Jun 17 2019 05:19:10

%S 1,3,11,25,274,294,13068,13698,114064,1062864,120543840,123870240,

%T 19802759040,20247546240,289277533440,4420892649600,1223405590579200,

%U 1243166003251200,431565146817638400,437647401838080000

%N Numerators of n!*(1 + 1/2 + 1/3 +...+ 1/(n+1))

%C The denominators of n!*(1 + 1/2 + 1/3 +...+ 1/(n+1)) are A014973 with offset 0.

%p FH := n -> numer(n!*add(1/i,i=1..n+1)); seq(FH(i),i=0..20);

%t Table[Numerator[n! HarmonicNumber[n+1]], {n, 0, 19}] (* _Jean-François Alcover_, Jun 17 2019 *)

%Y Cf. A014973 (denominators).

%K easy,frac,nonn

%O 0,2

%A _Peter Luschny_, Apr 30 2009