Problem 41

Perl6 

1say (max (1..7).permutations.hyper.grep(*.join.is-prime)).join