A173096 a(1) = 3, a(2) = 4, a(n) = a(n-2)*a(n-1)-a(n-2)-a(n-1).
3, 4, 5, 11, 39, 379, 14363, 5428835, 77968913907, 423280290755965603, 33002704548058529678235461411, 13969394376835442790478317113350745782558418819, 461027795334010317786933009714496751421279215574147082960119439306256813379
Offset: 1
Keywords
Programs
-
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 *)