%I #8 Oct 29 2012 14:25:36
%S 1,1,1,2,3,10,1002,1020180963368077455371525121027
%N a(n) = a(n-1)^a(n-2) + a(n-3) with a(0) = a(1) = a(2) = 1.
%C a(8) has over 30000 digits.
%e a(3) = a(2)^a(1) + a(0) = 1^1+1 = 1+1 = 2.
%t t = {1, 1, 1}; Do[AppendTo[t, t[[-1]]^t[[-2]] + t[[-3]]], {5}]; t (* _T. D. Noe_, Oct 29 2012 *)
%Y Cf. A184163, A218270, A218122.
%K nonn
%O 0,4
%A _Nico Brown_, Oct 24 2012
|