|
|
A051285
|
|
a(1) = 1, a(2) = 2, a(n) = a(n-1)^a(n-2).
|
|
4
|
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
RecurrenceTable[{a[1]==1, a[2]==2, a[n]==a[n-1]^a[n-2]}, a, {n, 7}] (* Vincenzo Librandi, Dec 17 2015 *)
|
|
PROG
|
(Magma) I:=[1, 2]; [n le 2 select I[n] else Self(n-1)^Self(n-2): n in [1..7]]; // Vincenzo Librandi, Dec 17 2015
(PARI) a(n) = if(n<3, n, a(n-1)^a(n-2)); \\ Altug Alkan, Dec 17 2015
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
Matt Kasper (matt192837(AT)hotmail.com)
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|