OFFSET
0,2
FORMULA
a(n) = Sum_{k=0..n} (-1)^(n-k)*A187547(k).
MAPLE
H := proc(n) add(1/i, i=1..n) ; end proc:
A187535 := proc(n) if n=0 then 1; else binomial(2*n-1, n-1)*(2*n)!/n! end if; end proc:
seq(A187548(n), n=0..20) ; # R. J. Mathar, Mar 24 2011
MATHEMATICA
Table[Sum[(-1)^n+(-1)^(n-k)Binomial[2k-1, k-1](2k)!/k!HarmonicNumber[k+1], {k, 1, n}], {n, 0, 12}]
PROG
(Maxima) makelist((-1)^n+sum((-1)^(n-k)*binomial(2*k-1, k-1)*(2*k)!/k!*sum(1/i, i, 1, k+1), k, 1, n), n, 0, 12);
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Emanuele Munarini, Mar 11 2011
STATUS
approved