|
%I #6 May 18 2019 16:57:35
%S 1,2,3,12,5,20,35,280,63,2520,385,27720,6435,8008,45045,720720,85085,
%T 4084080,969969,739024,29393,5173168,7436429,356948592,42902475,
%U 2974571600,717084225,80313433200,215656441,2329089562800,4512611027925
%N Denominator of 1^n/n + 2^n/(n-1) + 3^n/(n-2) + ... + (n-1)^n/2 + n^n/1.
%C Numerator is A115071(n).
%C Also a(n) is denominator of (n+1)^(n+1) * (H(n+1) - 1), where H(k) is harmonic number, H(k) = Sum_{i=1..k} 1/i = A001008(k)/A002805(k). - _Alexander Adamchuk_, Jan 02 2007
%F a(n) = denominator(Sum_{k=1..n} k^n/(n-k+1)).
%F a(n) = denominator((n+1)^(n+1) * Sum_{i=2..n+1} 1/i). - _Alexander Adamchuk_, Jan 02 2007
%t Denominator[Table[Sum[k^n/(n-k+1),{k,1,n}],{n,1,50}]]
%t Table[ Denominator[ (n+1)^(n+1) * Sum[ 1/i,{i,2,n+1} ] ], {n,1,40} ] (* _Alexander Adamchuk_, Jan 02 2007 *)
%Y Cf. A115071, A027612, A031971, A002805.
%Y Cf. A001008, A002805.
%K frac,nonn
%O 1,2
%A _Alexander Adamchuk_, Jul 22 2006
|
