This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A365472 #17 Oct 08 2023 09:55:17
%S A365472 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 A365472 44,46,48,49,52,53,55,57,60,61,64,66,68,69,72,73,75,77,80,81,84,86,88,
%U A365472 89,90,91,94,96,98,99,100,101,104,106,108,109,110,111,114
%N A365472 Numbers whose digits are either all primes or all nonprimes.
%C A365472 Complement of A365589.
%C A365472 Union of A046034 and A084984.
%t A365472 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 A365472 Cf. A046034, A084984, A365589.
%K A365472 nonn,base
%O A365472 1,3
%A A365472 _James C. McMahon_, Sep 11 2023