OFFSET
1,3
MATHEMATICA
a[n_Integer?NonNegative] := Select[Range[0, n], Module[{digits, primeDigits}, digits = IntegerDigits[#]; primeDigits = MemberQ[{2, 3, 5, 7}, #] & /@ digits; AllTrue[primeDigits, Identity] || AllTrue[primeDigits, Not]] &]; a[114] (* Robert P. P. McKone, Sep 13 2023 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
James C. McMahon, Sep 11 2023
STATUS
approved