Skip to main content
added 9 characters in body
Source Link
Roman
  • 2k
  • 8
  • 17

Wolfram Language (Mathematica), 4747 46 bytes

Without using any special functions:

e@0=1;e@n_:=-Sum[Binomial[n,2k]e[nn!Sum[e[n-2k]k]/k!/(n-k)!,{k,2,n/,2}]

Try it online!Try it online!

Wolfram Language (Mathematica), 47 bytes

Without using any special functions:

e@0=1;e@n_:=-Sum[Binomial[n,2k]e[n-2k],{k,n/2}]

Try it online!

Wolfram Language (Mathematica), 47 46 bytes

Without using any special functions:

e@0=1;e@n_:=-n!Sum[e[n-k]/k!/(n-k)!,{k,2,n,2}]

Try it online!

Source Link
Roman
  • 2k
  • 8
  • 17

Wolfram Language (Mathematica), 47 bytes

Without using any special functions:

e@0=1;e@n_:=-Sum[Binomial[n,2k]e[n-2k],{k,n/2}]

Try it online!