A365472 - OEIS

%I #17 Oct 08 2023 09:55:17

%S 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,

%T 44,46,48,49,52,53,55,57,60,61,64,66,68,69,72,73,75,77,80,81,84,86,88,

%U 89,90,91,94,96,98,99,100,101,104,106,108,109,110,111,114

%N Numbers whose digits are either all primes or all nonprimes.

%C Complement of A365589.

%C Union of A046034 and A084984.

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

%Y Cf. A046034, A084984, A365589.

%K nonn,base

%O 1,3

%A _James C. McMahon_, Sep 11 2023