Skip to main content
deleted 12 characters in body
Source Link
alephalpha
  • 51.9k
  • 7
  • 75
  • 196

Wolfram Language (Mathematica), 4340 bytes

CoefficientList[(((y=x^2+1)^#-x^#)/(y-x),x]&+O@x^(2#))[[3]]& 

Try it online!Try it online!

Wolfram Language (Mathematica), 43 bytes

CoefficientList[((y=x^2+1)^#-x^#)/(y-x),x]& 

Try it online!

Wolfram Language (Mathematica), 40 bytes

(((y=x^2+1)^#-x^#)/(y-x)+O@x^(2#))[[3]]& 

Try it online!

Source Link
alephalpha
  • 51.9k
  • 7
  • 75
  • 196

Wolfram Language (Mathematica), 43 bytes

CoefficientList[((y=x^2+1)^#-x^#)/(y-x),x]& 

Try it online!