OFFSET
0,3
LINKS
Robert G. Wilson v, Table of n, a(n) for n = 0..100
Eric Weisstein's World of Mathematics, Cube Line Picking
FORMULA
Conjecture: a(n)/A160694(n) = n!*Sum_{i=0..n,j=0..n-i} 1/((i+1)!(j+1)!(n-i-j+1)!(2i+1)(2j+1)(2(n-i-j)+1)). - Jérôme Houdayer, Nov 23 2016
EXAMPLE
1, 1/2, 11/30, 211/630, 187/525, 5899/13860, 3524083/6306300, 28603/36036, ...
MATHEMATICA
p1[n_] := 4 Pi/(2 n + 3) + 8/(2 n + 5) - 1/(2 n + 6) - 3 Pi/(n + 2); p2[n_] := (6 ((2^(n + 1) (-I Hypergeometric2F1[1/2, n + 1, n + 2, 2] + I Hypergeometric2F1[-1/2, n + 1, n + 2, 2] + n Pi + Pi))/(n + 1) + (I Sqrt[Pi] Gamma[n + 2])/Gamma[n + 5/2]))/(n + 2) + (1 - 2^(n + 1))/(2 n +
2) + (3 Pi (2^(n + 1) - 1))/(n + 1) + (3 (2^(n + 2) - 1))/(n + 2) + (2^(n + 3) - 1)/(n + 3) - (8 Pi (2^(n + 3/2) - 1))/(2 n + 3) + 4 Beta[1/2, -n - 3/2, 3/2] + 8 Beta[1/2, -n - 5/2, 3/2]; p3[n_] := Integrate[(-x^(2 n + 1)) (x^4 - 8 Sqrt[x^2 - 2] x^2 - 6 Pi x^2 + 6 x^2 - 8 Sqrt[x^2 - 2] - 16 x ArcTan[x Sqrt[x^2 - 2]] + 24 (x^2 + 1) ArcTan[Sqrt[x^2 - 2]] + 16 x ArcCsc[Sqrt[2 - 2/x^2]] - 6 Pi + 5), {x, Sqrt[2], Sqrt[3]}]; a[n_] := p1[n] + p2[n] + p3[n] // FullSimplify // Numerator; Table[an = a[n]; Print[an]; an, {n, 0, 20}] (* Jean-François Alcover, Dec 26 2012, after Eric W. Weisstein, updated Dec 08 2016 *)
CROSSREFS
KEYWORD
nonn,frac
AUTHOR
Eric W. Weisstein, May 24 2009
EXTENSIONS
Edited and a(9) added by Max Alekseyev, Feb 16 2012
a(10) - a(20) from Robert G. Wilson v, Nov 06 2013
STATUS
approved