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