Skip to main content
1 of 2
alephalpha
  • 51.9k
  • 7
  • 75
  • 196

Wolfram Language (Mathematica), 43 bytes

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

Try it online!

alephalpha
  • 51.9k
  • 7
  • 75
  • 196