A365471 Numbers whose digits are not all primes.

0, 1, 4, 6, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 21, 24, 26, 28, 29, 30, 31, 34, 36, 38, 39, 40, 41, 42, 43, 44, 45, 46, 47, 48, 49, 50, 51, 54, 56, 58, 59, 60, 61, 62, 63, 64, 65, 66, 67, 68, 69, 70, 71, 74, 76, 78, 79, 80, 81, 82, 83, 84, 85, 86

Offset: 1

Author

James C. McMahon, Sep 11 2023

Keywords

• base
• nonn

Comments

Complement of A046034.

Union of A084984 and A365589.

Crossrefs

Cf. A046034, A084984, A365589.

Programs

Mathematica

a[n_Integer?NonNegative] := Select[Range[0, n], Not[AllTrue[MemberQ[{2, 3, 5, 7}, #] & /@ IntegerDigits@#, Identity]] &]; a[86] (* Robert P. P. McKone, Sep 13 2023 *)
Select[Range[0,100],AnyTrue[IntegerDigits[#],!PrimeQ[#]&]&] (* Harvey P. Dale, Dec 22 2023 *)