%I #10 Sep 25 2016 04:48:52
%S 1,-1,7,-31,381,-268275,190954395,-8940271725,336335206772565,
%T -174821527924918875,54202314805255255275,-5543854406384412644150625,
%U 3114120189113602279924264875,-14151357141482747539875264868125,10216485085859695459247479126412709375
%N a(n) = numerator(b(2*n)) with b(n) = n!*Bernoulli(n,1/2)/(n*(n-1)) for n>=2, b(0)=1, b(1)=0.
%p b := n -> `if`(n<2, 1-n, (n-2)!*bernoulli(n,1/2)):
%p a := n -> numer(b(2*n)):
%p seq(a(n), n=0..14);
%Y Cf. A276668 (denominators).
%K sign,frac
%O 0,3
%A _Peter Luschny_, Sep 24 2016
|