OFFSET
1,1
LINKS
MATHEMATICA
Select[FromDigits/@Tuples[{0, 2, 3, 9}, 5], PrimeQ]
PROG
CROSSREFS
KEYWORD
nonn,base,easy,changed
AUTHOR
Jason Bard, Jul 15 2025
EXTENSIONS
Mathematica program corrected by Harvey P. Dale, Jul 04 2026
STATUS
approved
