OFFSET
1,1
COMMENTS
MATHEMATICA
Select[Range[132], ContainsAny[IntegerDigits[#], {2, 3, 5, 7}] && ContainsAny[IntegerDigits[#], {0, 1, 4, 6, 8, 9}]&] (* James C. McMahon, Oct 08 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
James C. McMahon, Sep 10 2023
STATUS
approved