OFFSET
1,1
COMMENTS
MATHEMATICA
Select[FromDigits/@Permutations[{0, 1, 2, 3, 4}], #>10^4&&PrimeQ[#]&] (* _James C. McMahon_, Mar 06 2024 *)
CROSSREFS
KEYWORD
base,fini,full,nonn
AUTHOR
_Zak Seidov_, Jun 21 2005
STATUS
approved