A173094 a(1)=2, a(2)=3, a(n)=a(n-2)*a(n-1)-a(n-1).

2, 3, 3, 6, 12, 60, 660, 38940, 25661460, 999231590940, 25641740502411581460, 25622037156669717708454796390940, 656993627914472375437286314449293585586011019581460

Offset: 1

Author

Vladimir Joseph Stephan Orlovsky, Feb 09 2010

Keywords

• nonn

Crossrefs

Cf. A173093.

Programs

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 *)

Extensions

Definition corrected by Harvey P. Dale, Oct 10 2015