A173100 a(1)=2, a(2)=2, a(n)=2*a(n-2)*a(n-1)-a(n-2)-a(n-1).
2, 2, 4, 10, 66, 1244, 162898, 405126082, 131988051722292, 106943604398142563191514, 28230555977340642743866391573263146370, 6038154820760673175690853635193471535603786459126013221470476
Offset: 1
Keywords
Programs
-
Mathematica
a=2;b=2;lst={a,b};Do[c=2*a*b-a-b;AppendTo[lst,c];a=b;b=c,{n,12}];lst