OFFSET
0,5
COMMENTS
LINKS
MATHEMATICA
a[n_] := (n+2)*EulerE[n+1, 0] - (n+1)*EulerE[n, 0]; a[0] = 0; Table[a[n], {n, 0, 30}] (* or: *)
Join[{0}, Array[#*EulerE[#-1, 0]&, 32] // Differences // Rest]
CROSSREFS
KEYWORD
sign
AUTHOR
Jean-François Alcover and Paul Curtz, Dec 07 2016
STATUS
approved