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
Robert Munafo, Jan 21 2010
STATUS
approved