2 added 254 characters in body

# 05AB1E, 99 8 bytes

Saved a byte thanks to Adnan.

Ò.pPvyÂQPpPDíïQ


Explanation

n = 7227 used as example

Ò           # prime factors with duplicates
# STACK: [3, 3, 11, 73]
.p         # prefixes
# STACK: [[3], [3, 3], [3, 3, 11], [3, 3, 11, 73]]
P        # product
# STACK: [3, 9, 99, 7227]
vD       # forduplicate
each y in list        # STACK: [3, 9, 99, 7227], [3, 9, 99, 7227]
yÂQí      # isreverse yeach
equal           # STACK: [3, 9, 99, 7227], ['3', '9', '99', '7227']
ï     # convert to its reverseint
# RESULTSTACK: 1[3, 19, 199, 17227], [3, 9, 99, 7227]
Q P   # productcheck for equality
# OUTPUTSTACK: 1
# implicit output


# 05AB1E, 9 bytes

Ò.pPvyÂQP


Try it online!

Explanation

n = 7227 used as example

Ò           # prime factors with duplicates
# STACK: [3, 3, 11, 73]
.p         # prefixes
# STACK: [[3], [3, 3], [3, 3, 11], [3, 3, 11, 73]]
P        # product
# STACK: [3, 9, 99, 7227]
v       # for each y in list
yÂQ    # is y equal to its reverse
# RESULT: 1, 1, 1, 1
P   # product
# OUTPUT: 1


# 05AB1E, 9 8 bytes

Saved a byte thanks to Adnan.

Ò.pPDíïQ


Try it online!

Explanation

n = 7227 used as example

Ò           # prime factors with duplicates
# STACK: [3, 3, 11, 73]
.p         # prefixes
# STACK: [[3], [3, 3], [3, 3, 11], [3, 3, 11, 73]]
P        # product
# STACK: [3, 9, 99, 7227]
D       # duplicate
# STACK: [3, 9, 99, 7227], [3, 9, 99, 7227]
í      # reverse each
# STACK: [3, 9, 99, 7227], ['3', '9', '99', '7227']
ï     # convert to  int
# STACK: [3, 9, 99, 7227], [3, 9, 99, 7227]
Q    # check for equality
# STACK: 1
# implicit output

1

# 05AB1E, 9 bytes

Ò.pPvyÂQP


Try it online!

Explanation

n = 7227 used as example

Ò           # prime factors with duplicates
# STACK: [3, 3, 11, 73]
.p         # prefixes
# STACK: [[3], [3, 3], [3, 3, 11], [3, 3, 11, 73]]
P        # product
# STACK: [3, 9, 99, 7227]
v       # for each y in list
yÂQ    # is y equal to its reverse
# RESULT: 1, 1, 1, 1
P   # product
# OUTPUT: 1