OFFSET
1,1
COMMENTS
All terms with more than a single digit must end with a 3. - Harvey P. Dale, Aug 16 2026
LINKS
MATHEMATICA
Flatten[Table[Select[FromDigits /@ Tuples[{2, 3, 5, 6}, n], PrimeQ], {n, 7}]]
(* Alternative: *)
Join[{2, 3, 5}, Flatten[Table[Select[10#+3&/@FromDigits/@Tuples[{2, 3, 5, 6}, n], PrimeQ], {n, 4}]]] (* Harvey P. Dale, Aug 16 2026 *)
PROG
CROSSREFS
KEYWORD
nonn,base,easy
AUTHOR
Jason Bard, Jul 17 2025
STATUS
approved