OFFSET
0,3
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 0..200
FORMULA
a(n) = (-1)^(n+1)*Re(2*I*(1+sum_{j=0..n}(binomial(n,j)*Li_{-j}(I)*4^j))). - Peter Luschny, Apr 29 2013
a(n) = (-4)^n*skp(n, 1/4), where skp(n,x) are the Swiss-Knife polynomials A153641. - Peter Luschny, Apr 19 2014
MAPLE
p := proc(n) local j; 2*I*(1+add(binomial(n, j)*polylog(-j, I)*4^j, j=0..n)) end: A156205 := n -> (-1)^(n+1)*Re(p(n));
seq(A156205(i), i=0..11); # Peter Luschny, Apr 29 2013
MATHEMATICA
Numerator[EulerE[Range[0, 20], 3/8]] (* Vincenzo Librandi, May 04 2012 *)
CROSSREFS
KEYWORD
sign,frac
AUTHOR
N. J. A. Sloane, Nov 07 2009
STATUS
approved