The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #13 Sep 08 2022 08:45:53
%S 23,127,211,223,227,241,271,283,421,523,823,829,1021,1123,1201,1213,
%T 1223,1229,1231,1237,1249,1279,1291,1297,1321,1327,1429,1627,1723,
%U 2003,2011,2017,2027,2053,2083,2089,2113,2129,2131,2137,2179,2203,2207,2213,2237,2243,2267,2273,2297,2311
%N Primes p with at least one decimal digit 2 that remain prime after removing all 2's.
%t Reap[Do[id=IntegerDigits[p=Prime[n]];If[MemberQ[id,2]&&PrimeQ[FromDigits[DeleteCases[id,2]]],Sow[p]],{n,3000}]][[2,1]]
%o (Magma) remove2:=func< n | [ d: d in n | d ne 2 ] >; [ p: p in PrimesUpTo(3000) | exists(t){ d: d in D | d eq 2 } and IsPrime(Seqint(remove2(D))) where D is Intseq(p) ];
%K nonn,base
%O 1,1
%A _Zak Seidov_, Dec 07 2010