A203901 a(n)=f(a(n-1)+1,a(n-2)+1,a(n-3)), where f(x,y,z)=yz+zx+xy and (a(1),a(2),a(3))=(0,0,1).

0, 0, 1, 2, 6, 31, 302, 11706, 3919531, 47073195302, 185055980038616706, 8711901623180875318209094531, 1612189902974799120179526719227635256224945302

Offset

1,4

Comments

For a guide to related sequences, see A203761.

Links

Table of n, a(n) for n=1..13.

Mathematica

a[1] = 0; a[2] = 0; a[3] = 1;
a[n_] := SymmetricPolynomial[2, {1 + a[n - 1], 1 + a[n - 2], a[n - 3]}]
Table[a[n], {n, 1, 16}] (* A203901 *)
nxt[{a_, b_, c_}]:={b, c, Total[Times@@@Subsets[{a, b+1, c+1}, {2}]]}; NestList[nxt, {0, 0, 1}, 15][[All, 1]] (* Harvey P. Dale, Nov 01 2022 *)

Crossrefs

Cf. A203761.

Sequence in context: A217143 A075845 A003087 * A342396 A190958 A340232

Adjacent sequences: A203898 A203899 A203900 * A203902 A203903 A203904

Keyword

nonn

Author

Clark Kimberling, Jan 07 2012

Status

approved