%I #22 Apr 03 2023 10:36:13
%S 11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97,113,
%T 131,137,173,179,197,311,317,431,617,719,1117,1171,4111,11113,11117,
%U 11119,11131,11171,11173,11197,11311,11317,11719,11731,13171,13711,41113
%N Primes remaining prime if all but two digits are deleted
%C Subsequence of A069488.
%D C. Caldwell, Truncatable primes, J. Recreational Math., 19:1 (1987) 30-33.
%H Tim Cieplowski, <a href="/A226108/b226108.txt">Table of n, a(n) for n = 1..2720</a>
%H P. Ballew, <a href="http://pballew.blogspot.com/2013/05/knockout-primes-and-new-notation.html">Knockout Primes and a new notation</a>, May 17, 2013
%H C. Caldwell, <a href="https://t5k.org/glossary/xpage/DeletablePrime.html">The Prime Glossary: Deletable Prime</a>
%e For a(3)=137, all pairs of two digits (in their original order) 13, 17, and 37 are prime.
%t testQ[n_] := n > 9 && Catch[Block[{d = IntegerDigits@n}, Do[If[! PrimeQ[ d[[j]] + 10*d[[i]]], Throw@False], {j, 2, Length@d}, {i, j-1}]; True]]; Select[Prime@ Range[10^5], testQ] (* _Giovanni Resta_, May 28 2013 *)
%Y Cf. A019546, A051362, A069488.
%K nonn,base
%O 1,1
%A _Tim Cieplowski_, May 26 2013
|