|
%I #9 Feb 21 2014 11:39:13
%S 1,1,4,108,6912,21600000,583200000,480290277600000,
%T 31476303632793600000,16727798278915463577600000,
%U 52274369621610823680000000000,14914487726878692033020558868480000000000
%N Denominator of 1 + 1/(2^2) + 1/(3^3) + ... 1/(n^n).
%e 1, 5/4, 139/108, 8923/6912,...
%p summ := 0; for n from 1 to 15 do printf("%d ", denom(summ)); if (1 = 1) then summ := summ + 1/n^n: end if; od;
%t Join[{1},Denominator/@Table[Sum[1/i^i,{i,n}],{n,12}]] (* _Harvey P. Dale_, Jul 03 2011 *)
%Y Cf. A061463.
%K nonn,frac,easy
%O 0,3
%A _Amarnath Murthy_, May 04 2001
%E More terms from Winston C. Yang (winston(AT)cs.wisc.edu), May 19 2001
%E a(12) from _Harvey P. Dale_, Jul 03 2011
|
