OFFSET
0,2
COMMENTS
Hankel transform of A188314 with first term omitted.
FORMULA
EXAMPLE
G.f.: 1 + 2*x + 7*x^2 + 59*x^3 + 1529*x^4 + 83313*x^5 + ...
a(2) = 7 = 2*16 - 5*5 = det([2, 5; 5, 16]).
MATHEMATICA
b[ n_] := If[OddQ[n], a[-(n-1)/2], a[n/2-1]]; a[ n_] := If[-3<=n<=1, {23, 3, 1, 1, 2}[[n+4]], 2*b[1-n]^3*b[2-n] + b[-n]^2*(b[2-n]*b[3-n] - b[1-n]*b[4-n])];
CROSSREFS
KEYWORD
nonn
AUTHOR
Michael Somos, Mar 24 2022
STATUS
approved