A365589 Numbers that have at least one prime digit and at least one nonprime digit.

12, 13, 15, 17, 20, 21, 24, 26, 28, 29, 30, 31, 34, 36, 38, 39, 42, 43, 45, 47, 50, 51, 54, 56, 58, 59, 62, 63, 65, 67, 70, 71, 74, 76, 78, 79, 82, 83, 85, 87, 92, 93, 95, 97, 102, 103, 105, 107, 112, 113, 115, 117, 120, 121, 122, 123, 124, 125, 126, 127, 128, 129, 130, 131, 132

Offset

1,1

Comments

The first 44 terms coincide with A085556 (Number of prime digits = number of nonprime digits). a(45) = 102; A085556(45) = 1022.

Links

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

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

Cf. A085556, A118950, A365472 (complement).

Sequence in context: A096514 A074163 A076979 * A085520 A085556 A175225

Adjacent sequences: A365586 A365587 A365588 * A365590 A365591 A365592

Keyword

nonn,base

Author

James C. McMahon, Sep 10 2023

Status

approved