%I #11 Apr 10 2023 09:41:45
%S 13,17,31,71,103,107,113,131,137,151,167,173,179,197,211,311,317,431,
%T 617,719,971,1013,1021,1031,1051,1097,1103,1117,1123,1129,1151,1153,
%U 1171,1213,1223,1229,1231,1277,1283,1291,1307,1367,1373,1409,1433,1439,1471,1487,1499
%N Primes p with at least one decimal digit 1 that remain prime after omitting all 1's from p.
%H Harvey P. Dale, <a href="/A176882/b176882.txt">Table of n, a(n) for n = 1..1000</a>
%t Reap[Do[id=IntegerDigits[p=Prime[n]];If[MemberQ[id,1]&&PrimeQ[FromDigits[DeleteCases[id,1]]],Sow[p]],{n,3000}]][[2,1]]
%t Select[Prime[Range[250]],DigitCount[#,10,1]>0&&PrimeQ[FromDigits[ DeleteCases[ IntegerDigits[ #],1]]]&] (* _Harvey P. Dale_, Apr 10 2023 *)
%Y Cf. A176822.
%K nonn,base
%O 1,1
%A _Zak Seidov_, Dec 07 2010
|