Prime Quadruplet Emirps

[danaj]

To handle proper emirps:

perl -Mntheory=:all -E 'sub isemirp { $r=reverse("".$_[0]); $r ne $_[0] && is_prime($r) && is_prime($_[0]); } for (sieve_prime_cluster(1,10**10,2,6,8)) { say if isemirp($_) && isemirp($_+2) && isemirp($_+6) && isemirp($_+8); }'

Adjust the "say" command as desired if you want output other than just the first prime of each qudruplet.