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 A365471 #18 Dec 22 2023 13:49:33
%S A365471 0,1,4,6,8,9,10,11,12,13,14,15,16,17,18,19,20,21,24,26,28,29,30,31,34,
%T A365471 36,38,39,40,41,42,43,44,45,46,47,48,49,50,51,54,56,58,59,60,61,62,63,
%U A365471 64,65,66,67,68,69,70,71,74,76,78,79,80,81,82,83,84,85,86
%N A365471 Numbers whose digits are not all primes.
%C A365471 Complement of A046034.
%C A365471 Union of A084984 and A365589.
%t A365471 a[n_Integer?NonNegative] := Select[Range[0, n], Not[AllTrue[MemberQ[{2, 3, 5, 7}, #] & /@ IntegerDigits@#, Identity]] &]; a[86] (* _Robert P. P. McKone_, Sep 13 2023 *)
%t A365471 Select[Range[0,100],AnyTrue[IntegerDigits[#],!PrimeQ[#]&]&] (* _Harvey P. Dale_, Dec 22 2023 *)
%Y A365471 Cf. A046034, A084984, A365589.
%K A365471 base,nonn
%O A365471 1,3
%A A365471 _James C. McMahon_, Sep 11 2023