OFFSET
1,1
LINKS
MATHEMATICA
Flatten[Table[Select[FromDigits /@ Tuples[{1, 2, 5, 7}, n], PrimeQ], {n, 7}]]
PROG
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Jason Bard, Jul 16 2025
STATUS
approved
