2 deleted 3 characters in body

# Pari/GP, 2120 bytes

Takes the input as a list of digits.

a->a*Vecrev>a*Colrev([1..#a])~


# Pari/GP, 2017 bytes

Takes the input as a polynomial. For example, 53716 will be 5*x^4 + 3*x^3 + 7*x^2 + x + 6 means 53716.

a->subst(>x=1;eval(x*a)',x,1a+a')


# Pari/GP, 21 bytes

Takes the input as a list of digits.

a->a*Vecrev([1..#a])~


Try it online!

# Pari/GP, 20 bytes

Takes the input as a polynomial. For example, 53716 will be 5*x^4 + 3*x^3 + 7*x^2 + x + 6.

a->subst((x*a)',x,1)


Try it online!

# Pari/GP, 20 bytes

Takes the input as a list of digits.

a->a*Colrev([1..#a])


Try it online!

# Pari/GP, 17 bytes

Takes the input as a polynomial. For example, 5*x^4 + 3*x^3 + 7*x^2 + x + 6 means 53716.

a->x=1;eval(a+a')


Try it online!

1

# Pari/GP, 21 bytes

Takes the input as a list of digits.

a->a*Vecrev([1..#a])~


Try it online!

# Pari/GP, 20 bytes

Takes the input as a polynomial. For example, 53716 will be 5*x^4 + 3*x^3 + 7*x^2 + x + 6.

a->subst((x*a)',x,1)


Try it online!