OFFSET
1,1
LINKS
Eric Weisstein's World of Mathematics, Ball Line Picking.
EXAMPLE
2/3, 128/(45*Pi), 36/35, 16384/(4725*Pi), 800/693, ...
MATHEMATICA
B[z_, a_, b_] := z^a/a*HypergeometricPFQ[{a, 1 - b}, {a + 1}, z]; a[n_] := Integrate[ n*s^n*B[1 - s^2/4, (n + 1)/2, 1/2]/B[1, (n + 1)/2, 1/2], {s, 0, 2}]; Table[a[n], {n, 1, 21, 2}] // Denominator (* Jean-François Alcover, Oct 31 2012, after Maple program in A093530 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Eric W. Weisstein, Mar 30 2004
EXTENSIONS
a(10)-a(11) from Max Alekseyev, Dec 12 2011
a(12)-a(14) from Robert G. Wilson v, Nov 04 2013
a(15)-a(20) from Alois P. Heinz, Nov 04 2013
STATUS
approved