OFFSET
1,1
LINKS
R. J. Mathar, Table of n, a(n) for n = 1..30
MATHEMATICA
f[n_] := Denominator[Sum[HarmonicNumber[2k]*Factorial[2k]/(Factorial[k]*Factorial[k + n + 1]), {k, n}]]; Table[f[n], {n, 16}] (* Ray Chandler, Oct 23 2006 *)
PROG
(PARI) H(n)={ if(n==0, 0, sum(k=1, n, 1/k)) ; }
A124236(n)={ denominator(sum(k=1, n, H(2*k)*(2*k)!/k!/(k+n+1)!)) ; }
A124236alt(n)={ denominator(sum(k=0, n-1, H(n-k)*(2*k)!/k!/(k+n+1)!)) ; } \\ R. J. Mathar, Oct 23 2006
CROSSREFS
KEYWORD
frac,nonn
AUTHOR
Leroy Quet, Oct 22 2006
EXTENSIONS
Extended by R. J. Mathar and Ray Chandler, Oct 23 2006
STATUS
approved