a[0] = 0; 答[1] = -1; a[n] :=n*欧拉[n-1,0];表[a[n],{n, 0, 32}] (*Jean-François Alcover公司2013年9月12日*)
一[ n个_] := 如果[ n个 < 1, 0, -n个 欧洲[n个 - 1, 1]]; (*_程序 从 _迈克尔·索莫斯(Michael Somos),2014年4月23日*)
a[n_]:=如果[n<1,0,-n*EulerE[n-1,1]];
一个[ n_] :=如果[ n个 < 0, 0, 2 *(1 - 2 ^n) *伯努利B[n, 1]]; (*_迈克尔 索莫斯_, 四月 23 2014 终点 *)
表[2] *n个 *PolyLog公司[1 - n、 -1],{n, 0, 32}] (*彼得·卢什尼2021年8月17日*)