OFFSET
1,2
COMMENTS
See A054871 for definitions and key links.
Possible other sequence with the same 4 entries:
a(1)=1;
a(2)= 3;
a(n)=a(n-1)^a(n-2)^a(n-2);
MATHEMATICA
RecurrenceTable[{a[1]==1, a[2]==3, a[n]==a[n-1]^a[n-2]^a[n-2]}, a, {n, 4}] (* Vincenzo Librandi, Dec 17 2015 *)
PROG
(Magma) I:=[1, 3]; [n le 2 select I[n] else Self(n-1)^Self(n-2)^Self(n-2): n in [1..5]]; // Vincenzo Librandi, Dec 17 2015
CROSSREFS
KEYWORD
nonn
AUTHOR
Natan Arie Consigli, Dec 16 2015
STATUS
approved