cp's OEIS Frontend

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.

A248745 Primes becoming a composite number if any digit is deleted (zeros allowed).

This page as a plain text file.
%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