OFFSET
0,3
COMMENTS
See A129462 for the M. Bruschi et al. reference.
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..250
FORMULA
a(n) = A129462(n+2, 2), n >= 0.
a(n) = (-1)*n!*(n+2)!*(HarmonicNumber(n+2) - 2), for n >= 1, otherwise a(0) = 1. - G. C. Greubel, Feb 08 2024
MATHEMATICA
A129465[n_]:= If[n==0, 1, -n!*(n+2)!*(HarmonicNumber[n+2] -2)];
Table[A129465[n], {n, 0, 30}] (* G. C. Greubel, Feb 08 2024 *)
PROG
(Magma)
A129465:= func< n | n eq 0 select 1 else -Factorial(n)*Factorial(n+2)*(HarmonicNumber(n+2) -2) >;
[A129465(n): n in [0..30]]; // G. C. Greubel, Feb 08 2024
(SageMath)
def A129465(n): return 1 if (n==0) else -factorial(n)*factorial(n+2)*( harmonic_number(n+2) -2)
[A129465(n) for n in range(31)] # G. C. Greubel, Feb 08 2024
CROSSREFS
KEYWORD
sign,easy
AUTHOR
Wolfdieter Lang, May 04 2007
STATUS
approved