2 lines
81 B
Text
2 lines
81 B
Text
emirpQ[n_Integer] :=
|
|
Block[{rev = reverseDigits@n}, And[n != rev, PrimeQ[rev]]]
|
emirpQ[n_Integer] :=
|
|
Block[{rev = reverseDigits@n}, And[n != rev, PrimeQ[rev]]]
|