OFFSET
0,5
COMMENTS
See A264148 for definitions and cross-references.
LINKS
G. C. Greubel, Table of n, a(n) for n = 0..255
MAPLE
MATHEMATICA
h[k_]:= h[k] = If[k <= 0, 1, (h[k - 1]/k - Sum[h[k - j]*h[j]/(j + 1), {j, 1, k - 1}])/(1 + 1/(k + 1))]; b[n_] := h[n]*Factorial2[n - 1]; Table[ Numerator[b[2*n + 1]/2^(n + 1)], {n, 0, 50}] (* G. C. Greubel, Feb 08 2018 *)
CROSSREFS
KEYWORD
sign,frac
AUTHOR
Peter Luschny, Nov 05 2015
STATUS
approved