A271938 a(1) = 1, a(2) = 3, a(n) = a(n-1)^a(n-2).
1, 3, 3, 27, 19683, 87189642485960958202911070585860771696964072404731750085525219437990967093723439943475549906831683116791055225665627
Offset: 1
Keywords
Programs
-
Mathematica
a[1] = 1; a[2] = 3; a[n_] := a[n] = a[n - 1]^a[n - 2]; Array[a, {6}] (* Michael De Vlieger, Apr 17 2016 *) nxt[{a_,b_}]:={b,b^a}; NestList[nxt,{1,3},5][[;;,1]] (* Harvey P. Dale, Aug 02 2025 *)