|
%I #8 Dec 31 2013 02:55:55
%S 0,1,4,50,1349,194713,9917687,112451057,87707471002,638247495586258,
%T 39621419345255038,3367553690081394959018,293578866124447319211215128,
%U 340463591070905769538621961175104,403214792232827898020426758621769680732,16787247654077861265551571547714793328259156
%N Numerator of sum_{k=1..n} 1/(k*H(k)) where H(k) is the harmonic number H(k) = sum_{j=1..n} 1/j.
%C The corresponding denominators are in A234715.
%t nmax = 54; Table[ Numerator[ Sum[ 1/(k HarmonicNumber[k]), {k, 1, n} ] ], {n, 0, nmax} ]
%Y Cf. A001008, A002805, A000254, A096987, A124432, A234715
%K nonn,easy
%O 0,3
%A _Stuart Clary_, Dec 29 2013
|
