A122025 a(n) = (3*a(n-1)*a(n-4) - a(n-2)*a(n-3)) / a(n-5).

1, 1, 1, 1, 1, 2, 5, 13, 29, 109, 629, 4274, 23329, 170353, 2034385, 35152177, 494532481, 7768108946, 176258003381, 7248370100941, 266967020984381, 9997125891977197, 431397731193035525, 38079906742644329378

Offset

0,6

Links

Table of n, a(n) for n=0..23.

Mathematica

a[n_] := a[n] = (3*a[n - 1]a[n - 4] - a[n - 2]*a[n - 3])/a[n - 5]; a[0] = 1; a[1] = 1; a[2] = 1; a[3] = 1; a[4] = 1; Table[a[n], {n, 0, 30}]
RecurrenceTable[{a[1]==a[2]==a[3]==a[4]==a[5]==1, a[n]==(3a[n-1]a[n-4]-a[n-2]a[n-3])/a[n-5]}, a, {n, 30}] (* Harvey P. Dale, Sep 02 2017 *)

Crossrefs

Cf. A006722.

Sequence in context: A242080 A178444 A299145 * A236414 A057873 A116699

Adjacent sequences: A122022 A122023 A122024 * A122026 A122027 A122028

Keyword

nonn

Author

Roger L. Bagula, Sep 13 2006

Extensions

Edited by N. J. A. Sloane, Sep 17 2006

Status

approved