OFFSET
1,1
MATHEMATICA
a=3; b=4; lst={a, b}; Do[c=a*b-a-b; AppendTo[lst, c]; a=b; b=c, {n, 12}]; lst
nxt[{a_, b_}]:={b, a*b-a-b}; NestList[nxt, {3, 4}, 15][[;; , 1]] (* Harvey P. Dale, Aug 31 2023 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 09 2010
STATUS
approved