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 A034303 #25 Feb 07 2022 04:35:33
%S A034303 11,19,41,61,89,227,251,257,277,281,349,449,499,521,557,577,587,727,
%T A034303 757,787,821,827,857,877,881,887,991,1117,1129,1171,1187,1259,1289,
%U A034303 1423,1447,1453,1471,1483,1543,1553,1559,1583,1621,1669,1721,1741,1747
%N A034303 Zeroless primes that become nonprime if any digit is deleted.
%H A034303 T. D. Noe, <a href="/A034303/b034303.txt">Table of n, a(n) for n = 1..1000</a>
%t A034303 Select[Prime[Range[5,300]],Union[PrimeQ[FromDigits/@Table[Delete[ IntegerDigits[ #], n],{n,IntegerLength[#]}]]] == {False} && !MemberQ[ IntegerDigits[#],0]&] (* _Harvey P. Dale_, Jan 09 2014 *)
%o A034303 (Haskell)
%o A034303 import Data.List (inits, tails)
%o A034303 a034303 n = a034303_list !! (n-1)
%o A034303 a034303_list = filter f $ drop 4 a038618_list where
%o A034303 f x = all (== 0) $ map (a010051 . read) $
%o A034303 zipWith (++) (inits $ show x) (tail $ tails $ show x)
%o A034303 -- _Reinhard Zumkeller_, Dec 17 2011
%Y A034303 Cf. A034302, A034304, A034305.
%Y A034303 Cf. A010051, A038618.
%K A034303 base,nonn,nice
%O A034303 1,1
%A A034303 _David W. Wilson_
%E A034303 Definition corrected by _T. D. Noe_, Apr 02 2008
%E A034303 Name edited by _Jon E. Schoenfield_, Feb 07 2022