A203761 a(n)=f(a(n-1)+1,a(n-2),a(n-3)), where f(x,y,z)=yz+zx+xy and a(1)=0, a(2)=0, a(3)=1.
0, 0, 1, 0, 1, 2, 3, 14, 81, 1436, 137649, 208931366, 29059416843159, 6075423684633064285934, 176549538697128711514244195056431069, 1072613254042004122844787854494321338954112455109333945016
Offset: 1
Keywords
Crossrefs
Cf. A203902.
Programs
-
Mathematica
a[1] = 0; a[2] = 0; a[3] = 1; a[n_] := SymmetricPolynomial[2, {1 + a[n - 1], a[n - 2], a[n - 3]}] Table[a[n], {n, 1, 16}] (* A203761 *)
Comments