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