Return to Answer

deleted 28 characters in body

edited May 8, 2019 at 18:42

edited May 8, 2019 at 18:42

Wolfram Language (Mathematica), 6965 bytes

If[#<3,1<2,#<2||!FreeQ[Tr/@(#^#~Check~0&Tr[Check[#^#,1]&/@IntegerDigits[#@#~IntegerDigits~i]~Table~{i,2~Range~#])2,#]]&#}~FreeQ~#&

The larger test cases will time out on TIO.-4 bytes from @attinat

If[#<3,1<2,!FreeQ[Tr/@(#^#~Check~0&/@IntegerDigits[#,2~Range~#]),#]]&

The larger test cases will time out on TIO.

#<2||!Tr[Check[#^#,1]&/@#~IntegerDigits~i]~Table~{i,2,#}~FreeQ~#&

-4 bytes from @attinat

added 6 characters in body

edited May 8, 2019 at 17:23

edited May 8, 2019 at 17:23

If[#<3,1<2,!FreeQ[Tr/@(Check[#^#,0]&#^#~Check~0&/@IntegerDigits[#,2~Range~#]),#]]&

The larger test cases will time out on TIO.
Try it online!

If[#<3,1<2,!FreeQ[Tr/@(Check[#^#,0]&/@IntegerDigits[#,2~Range~#]),#]]&

The larger test cases will time out on TIO.
Try it online!

If[#<3,1<2,!FreeQ[Tr/@(#^#~Check~0&/@IntegerDigits[#,2~Range~#]),#]]&

The larger test cases will time out on TIO.

answered May 8, 2019 at 17:16

answered May 8, 2019 at 17:16

If[#<3,1<2,!FreeQ[Tr/@(Check[#^#,0]&/@IntegerDigits[#,2~Range~#]),#]]&

The larger test cases will time out on TIO.
Try it online!