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,3

Comments

Complement of A046034.

Union of A084984 and A365589.

Links

Table of n, a(n) for n=1..67.

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 *)

Crossrefs

Cf. A046034, A084984, A365589.

Sequence in context: A225668 A091985 A091984 * A228651 A045762 A320985

Adjacent sequences: A365468 A365469 A365470 * A365472 A365473 A365474

Keyword

base,nonn

Author

James C. McMahon, Sep 11 2023

Status

approved