|
%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
|
