Skip to main content
Post Undeleted by alephalpha
added 581 characters in body
Source Link
alephalpha
  • 51.9k
  • 7
  • 75
  • 196

Pari/GP, 26 bytes

n->n!*sum(k=0,n,(-1)^k/k!) 

Try it online!


Pari/GP, 28 bytes

f(n)=if(n,n*f(n-1)+(-1)^n,1) 

Try it online!


Pari/GP, 15 bytes (invalid because of finite precision)

n->n!\/exp(!!n) 

Try it online!

Pari/GP, 15 bytes

n->n!\/exp(!!n) 

Try it online!

Pari/GP, 26 bytes

n->n!*sum(k=0,n,(-1)^k/k!) 

Try it online!


Pari/GP, 28 bytes

f(n)=if(n,n*f(n-1)+(-1)^n,1) 

Try it online!


Pari/GP, 15 bytes (invalid because of finite precision)

n->n!\/exp(!!n) 

Try it online!

Post Deleted by alephalpha
Source Link
alephalpha
  • 51.9k
  • 7
  • 75
  • 196

Pari/GP, 15 bytes

n->n!\/exp(!!n) 

Try it online!