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