2 added 254 characters in body
source | link

05AB1E, 99 8 bytes

Saved a byte thanks to Adnan.

Ò.pPvyÂQPpPDíïQ

Try it online!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]
    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
source | link

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