%I #4 Jul 07 2024 23:02:30
%S 0,0,1,1,1,1,3,5,9,25,73,313,3263,1502337,278472902914281,
%T 11984387434132924341157279996736444304839056033321
%N a(n) = a(n-1) + a(n-2)*a(n-3) + a(n-4)*a(n-5)^a(n-6).
%C The first 6 terms are {0,0,1,1,1,1}; thereafter apply the recurrence. Note that 0^0=1.
%H R. Munafo, <a href="http://mrob.com/pub/math/seq-accelerate.html">Accelerating Sequences</a>
%t a[0] = 0; a[1] = 0; a[2] = 1; a[3] = 1; a[4] = 1; a[5] = 1; a[6] = 3; a[n_] := a[n - 1] + a[n - 2]*a[n - 3] + a[n - 4]*a[n - 5]^a[n - 6]; Table[a[n], {n, 0, 15}] (* _Wesley Ivan Hurt_, Jul 07 2024 *)
%K nonn
%O 0,7
%A _Robert Munafo_, Jan 21 2010