OFFSET
0,5
FORMULA
For n>2, a(n) = (-2*n+3)*a(n-1)-(n-3)*(n-1)*a(n-2)+(n-1)*(n-2)*a(n-3)/2. - Tani Akinari, Feb 13 2024
MATHEMATICA
With[{m = 21}, Range[0, m]! * CoefficientList[Series[Exp[ Sinh[ Log[ 1+x ] ] ], {x, 0, m}], x]]
PROG
(Maxima) a[n]:=if n<3 then mod((n+1)^2, 3) else (-2*n+3)*a[n-1]-(n-3)*(n-1)*a[n-2]+(n-1)*(n-2)*a[n-3]/2;
makelist(a[n], n, 0, 50); /* Tani Akinari, Feb 13 2024 */
(PARI) my(x='x+O('x^35)); Vec(serlaplace(exp(sinh(log(1+x))))) \\ Joerg Arndt, Feb 13 2024
CROSSREFS
KEYWORD
sign,easy
AUTHOR
EXTENSIONS
Extended with signs by Olivier Gérard, Mar 15 1997
Name clarified by Michel Marcus, Feb 13 2024
STATUS
approved