proposed
approved
proposed
approved
editing
proposed
skp[n_, x_] := Sum[Binomial[n, k]*EulerE[k]*If[n==k, 1, x^(n-k)], {k, 0, n}];
a[n_] := skp[n, 0] + skp[n+1, -1];
Table[a[n], {n, 0, 28}] (* Jean-François Alcover, Jul 08 2019 *)
approved
editing
proposed
approved
editing
proposed
0, 0, 1, 0, -11, 0, 211, 0, -6551, 0, 303271, 0, -19665491, 0, 1704396331, 0, -190473830831, 0, 26684005437391, 0, -4581126864886571, 0, 946075012113714451, 0, -231406946026650896711, 0, 66164529094650835995511, 0, -21866924546405967976005251, 0
0, 0, 1, 0, -11, 0, 211, 0, -6551, 0, 303271, 0, -19665491, 0, 1704396331, 0, -190473830831, 0, 26684005437391, 0, -4581126864886571, 0, 946075012113714451, 0, -231406946026650896711, 0, 66164529094650835995511, 0, -21866924546405967976005251, 0
allocated for Peter Luschny
nn
0, 0, 1, 0, -11, 0, 211
0,5
allocated
sign
Peter Luschny, Apr 17 2014
approved
editing
allocated for Peter Luschny
allocated
approved