emirpQ[n_Integer] :=
 Block[{rev = reverseDigits@n}, And[n != rev, PrimeQ[rev]]]