OFFSET
1,1
MATHEMATICA
a=2; b=3; lst={a, b}; Do[c=a*b-b; AppendTo[lst, c]; a=b; b=c, {n, 13}]; lst
RecurrenceTable[{a[1]==2, a[2]==3, a[n]==a[n-2]a[n-1]-a[n-1]}, a, {n, 20}] (* Harvey P. Dale, Oct 10 2015 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Feb 09 2010
EXTENSIONS
Definition corrected by Harvey P. Dale, Oct 10 2015
STATUS
approved