|
|
A171880
|
|
a(n) = a(n-1) + a(n-2)*a(n-3) + a(n-4)*a(n-5)^a(n-6)
|
|
0
|
|
|
0, 0, 0, 1, 1, 1, 2, 4, 7, 16, 46, 166, 1014, 47066, 12348246366, 66716521529543607970475115226
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
0,7
|
|
COMMENTS
|
First 6 terms are {0,0,0,1,1,1}; thereafter apply the recurrence. Note that 0^0=1.
|
|
LINKS
|
|
|
MATHEMATICA
|
nxt[{a_, b_, c_, d_, e_, f_}]:={b, c, d, e, f, f+e*d+c*Max[1, b]^Max[1, a]}; NestList[ nxt, {0, 0, 0, 1, 1, 1}, 14][[All, 1]] (* Harvey P. Dale, Jan 18 2019 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|