|
%I #5 Dec 05 2013 19:54:51
%S 1,1,3,13,35,223,91,757,1759,18071,20339,248929,274339,3899047,
%T 4233667,4570003,9815681,178398097,63323219,1276654601,270074449,
%U 94951643,99889667,2411272037,7575891845,197964062333,206544557333
%N Numerator of 1 + 1/2 + 2/3 + 3/4 + ... + (n-1)/n.
%e 1, 3/2, 13/6, 35/12, 223/60,...
%p summ := 1; for n from 1 to 30 do printf("%d ", numer(summ)); if (1 = 1) then summ := summ + (n-1)/n: end if; od;
%t Numerator[Accumulate[Join[{1},Table[(n-1)/n,{n,30}]]]] (* _Harvey P. Dale_, Jan 18 2012 *)
%K nonn,frac,easy
%O 1,3
%A _Amarnath Murthy_, May 05 2001
%E Corrected and extended by Winston C. Yang (winston(AT)cs.wisc.edu), May 19 2001
|
