|
%I #11 Oct 05 2019 09:57:24
%S 1,1,1,1,1,2,5,13,29,109,629,4274,23329,170353,2034385,35152177,
%T 494532481,7768108946,176258003381,7248370100941,266967020984381,
%U 9997125891977197,431397731193035525,38079906742644329378
%N a(n) = (3*a(n-1)*a(n-4) - a(n-2)*a(n-3)) / a(n-5).
%t 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}]
%t 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 *)
%Y Cf. A006722.
%K nonn
%O 0,6
%A _Roger L. Bagula_, Sep 13 2006
%E Edited by _N. J. A. Sloane_, Sep 17 2006
|
