A367430 a(1)=a(2)=a(3)=1; for n > 3, a(n) = a(n-1)*a(n-2)*a(n-3) + a(n-1) + a(n-2) + a(n-3).

1, 1, 1, 4, 10, 55, 2269, 1250284, 156030444388, 442641893445738546589, 86351628807475712878787449679327520349, 5963928033713995675288097975918984841058670353057557384156171322944994

Offset

1,4

Links

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

Mathematica

a[1] = 1; a[2] = 1; a[3] = 1;
a[n_] := a[n] = a[n - 1]*a[n - 2]*a[n - 3] + a[n - 1] + a[n - 2] + a[n - 3];
Table[a[n], {n, 1, 12}]

Crossrefs

Cf. A063896 (a(n) = a(n-1)*a(n-2) + a(n-1) + a(n-2)), A000073.

Sequence in context: A276130 A263044 A013589 * A225543 A002290 A336997

Adjacent sequences: A367427 A367428 A367429 * A367431 A367432 A367433

Keyword

nonn

Author

José María Grau Ribas, Nov 18 2023

Status

approved