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

Author

James C. McMahon, Sep 10 2023

Keywords

• nonn
• base

Comments

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

Crossrefs

Cf. A085556, A118950, A365472 (complement).

Programs

Mathematica

Select[Range[132], ContainsAny[IntegerDigits[#], {2,3,5,7}] && ContainsAny[IntegerDigits[#], {0,1,4,6,8,9}]&] (* James C. McMahon, Oct 08 2023 *)