OFFSET
0,3
LINKS
Harry J. Smith, Table of n, a(n) for n = 0..29
MATHEMATICA
nxt[{a_, b_, c_}]:={b, c, c+a*b}; NestList[nxt, {0, 1, 2}, 20][[All, 1]] (* Harvey P. Dale, Oct 16 2020 *)
PROG
(PARI) { for (n = 0, 29, if (n>2, a=a1 + a2*a3; a3=a2; a2=a1; a1=a, if (n==0, a=a3=0; a2=1; a1=2, if (n==1, a=1, a=2))); write("b063402.txt", n, " ", a) ) } \\ Harry J. Smith, Aug 20 2009
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Olivier Gérard, Jul 16 2001
STATUS
approved