|
%I #3 Mar 31 2012 12:38:17
%S 1,3,30,1152921504606847006
%N a(1) = 1; a(n) = a(n-1) + n^a(n-1) for n > 1.
%C Next term is too large to include.
%t lst={};s=0;Do[s+=n^s;AppendTo[lst,s],{n,4}];lst
%o (ARIBAS) a:=0; for n:=1 to 4 do a:=a+n**a; write(a:group(0), ","); end; end;
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Oct 10 2008
%E Edited definition, added comment and ARIBAS code. - _Klaus Brockhaus_, Oct 13 2008
| 