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 A248745 #9 Oct 30 2021 15:47:41 %S A248745 89,227,251,257,277,281,349,409,449,499,521,557,577,587,727,757,787, %T A248745 821,827,857,877,881,887,991,1117,1129,1171,1187,1259,1289,1423,1447, %U A248745 1453,1471,1483,1543,1553,1559,1583,1621,1669,1721,1741,1747,1777,1847,1889 %N A248745 Primes becoming a composite number if any digit is deleted (zeros allowed). %C A248745 Since J. Gutierrez called terms of A051362 "super-prime numbers", then it is natural to call the terms of this sequence "weakest primes". %H A248745 Peter J. C. Moses, <a href="/A248745/b248745.txt">Table of n, a(n) for n = 1..1000</a> %t A248745 compositeQ[n_]:=!(Abs[n]==1||PrimeQ[n]); %t A248745 Select[Prime[Range[5,500]],Apply[And,Map[compositeQ[FromDigits[#]]&,Subsets[#,{Length[#]-1}]&[IntegerDigits[#]]]]&] (* _Peter J. C. Moses_, Oct 13 2014 *) %t A248745 Select[Prime[Range[300]],AllTrue[FromDigits/@Table[Drop[IntegerDigits[#],{k}],{k,IntegerLength[#]}],CompositeQ]&] (* _Harvey P. Dale_, Oct 30 2021 *) %Y A248745 Cf. A051362, A000040. %K A248745 nonn,base %O A248745 1,1 %A A248745 _Vladimir Shevelev_, Oct 13 2014 %E A248745 More terms from _Peter J. C. Moses_, Oct 13 2014