A263048 a(0)=0, a(1)=1; for n>1, a(n) = a(n-2)^a(n-1) + a(n-1)^a(n-2).

0, 1, 1, 2, 3, 17, 129145076

Offset

0,4

Comments

Next term has 365895553 digits.

Links

Table of n, a(n) for n=0..6.

Mathematica

RecurrenceTable[{a[0] == 0, a[1] == 1, a[n] == a[n-2]^a[n-1]+a[n-1]^a[n-2]}, a, {n, 6}] (* Vincenzo Librandi, Oct 09 2015 *)
nxt[{a_, b_}]:={b, a^b+b^a}; NestList[nxt, {0, 1}, 6][[;; , 1]] (* Harvey P. Dale, May 02 2023 *)

Prog

(PARI) a(n) = if(n<2, n, a(n-2)^a(n-1)+a(n-1)^a(n-2)) \\ Altug Alkan, Oct 15 2015
(Magma) [n le 2 select n-1 else Self(n-2)^Self(n-1)+Self(n-1)^Self(n-2): n in [1..7]]; // Vincenzo Librandi, Oct 09 2015

Crossrefs

Sequence in context: A042903 A367686 A132534 * A118702 A073524 A130226

Adjacent sequences: A263045 A263046 A263047 * A263049 A263050 A263051

Keyword

nonn

Author

Gianmarco Giordano, Oct 08 2015

Status

approved