|
%I #40 Oct 22 2023 22:58:51
%S 12,13,15,17,20,21,24,26,28,29,30,31,34,36,38,39,42,43,45,47,50,51,54,
%T 56,58,59,62,63,65,67,70,71,74,76,78,79,82,83,85,87,92,93,95,97,102,
%U 103,105,107,112,113,115,117,120,121,122,123,124,125,126,127,128,129,130,131,132
%N Numbers that have at least one prime digit and at least one nonprime digit.
%C The first 44 terms coincide with A085556 (Number of prime digits = number of nonprime digits). a(45) = 102; A085556(45) = 1022.
%t Select[Range[132], ContainsAny[IntegerDigits[#], {2,3,5,7}] && ContainsAny[IntegerDigits[#], {0,1,4,6,8,9}]&] (* _James C. McMahon_, Oct 08 2023 *)
%Y Cf. A085556, A118950, A365472 (complement).
%K nonn,base
%O 1,1
%A _James C. McMahon_, Sep 10 2023
|
