OFFSET
0,3
COMMENTS
Hankel transform of A184120.
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..75
FORMULA
a(n) = (4*a(n-1)*a(n-3) - 3*a(n-2)^2)/a(n-4).
MATHEMATICA
RecurrenceTable[{a[0]==1, a[1]==-1, a[2]==-7, a[3]==-31, a[n]==(4a[n-1] a[n-3]- 3a[n-2]^2)/a[n-4]}, a, {n, 20}] (* Harvey P. Dale, Apr 03 2016 *)
PROG
(Magma) I:=[-23, 2239, 39889, 603521]; [1, -1, -7, -31] cat [n le 4 select I[n] else (4*Self(n-1)*Self(n-3) - 3*Self(n-2)^2 )/Self(n-4): n in [1..30]]; // G. C. Greubel, Aug 14 2018
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Paul Barry, Jan 09 2011
STATUS
approved