A365472 Numbers whose digits are either all primes or all nonprimes.

0, 1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 14, 16, 18, 19, 22, 23, 25, 27, 32, 33, 35, 37, 40, 41, 44, 46, 48, 49, 52, 53, 55, 57, 60, 61, 64, 66, 68, 69, 72, 73, 75, 77, 80, 81, 84, 86, 88, 89, 90, 91, 94, 96, 98, 99, 100, 101, 104, 106, 108, 109, 110, 111, 114

Offset

1,3

Comments

Complement of A365589.

Union of A046034 and A084984.

Links

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

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

Cf. A046034, A084984, A365589.

Sequence in context: A252494 A030294 A125668 * A034894 A263564 A061430

Adjacent sequences: A365469 A365470 A365471 * A365473 A365474 A365475

Keyword

nonn,base

Author

James C. McMahon, Sep 11 2023

Status

approved