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 A243355 #16 Aug 11 2023 11:18:14
%S A243355 1,2,3,4,5,6,8,9,10,12,15,16,17,19,20,21,22,24,25,26,27,28,35,36,39,
%T A243355 40,42,43,44,45,46,47,48,49,50,51,53,57,58,59,60,61,64,65,66,67,68,69,
%U A243355 70,71,72,76,77,79,85,86,87,88,89,90,91,93,96,98,99,101
%N A243355 Numbers n such that n and prime(n) have no common digits.
%H A243355 Reinhard Zumkeller, <a href="/A243355/b243355.txt">Table of n, a(n) for n = 1..10000</a>
%e A243355 98 is in the sequence because prime(98) = 521, which has no digits in common with 98.
%t A243355 Select[Range[110],Intersection[IntegerDigits[#],IntegerDigits[Prime[#]]]=={}&] (* _Harvey P. Dale_, Aug 11 2023 *)
%o A243355 (PARI) s=[]; for(n=1, 300, if(setintersect(vecsort(digits(n),,8), vecsort(digits(prime(n)),,8))==[], s=concat(s, n))); s
%o A243355 (Haskell)
%o A243355 import Data.List (intersect)
%o A243355 a243355 n = a243355_list !! (n-1)
%o A243355 a243355_list = filter
%o A243355 (\x -> null $ show x `intersect` (show $ a000040 x)) [1..]
%o A243355 -- _Reinhard Zumkeller_, Sep 14 2014
%Y A243355 Cf. A000040, A074350, A119393 (complement).
%K A243355 nonn,base,less
%O A243355 1,2
%A A243355 _Colin Barker_, Jun 03 2014