login
Denominator of 1 + 1/(2^2) + 1/(3^3) + ... 1/(n^n).
3

%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