A176882 Primes p with at least one decimal digit 1 that remain prime after omitting all 1's from p.

13, 17, 31, 71, 103, 107, 113, 131, 137, 151, 167, 173, 179, 197, 211, 311, 317, 431, 617, 719, 971, 1013, 1021, 1031, 1051, 1097, 1103, 1117, 1123, 1129, 1151, 1153, 1171, 1213, 1223, 1229, 1231, 1277, 1283, 1291, 1307, 1367, 1373, 1409, 1433, 1439, 1471, 1487, 1499

Offset

1,1

Links

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Mathematica

Reap[Do[id=IntegerDigits[p=Prime[n]]; If[MemberQ[id, 1]&&PrimeQ[FromDigits[DeleteCases[id, 1]]], Sow[p]], {n, 3000}]][[2, 1]]
Select[Prime[Range[250]], DigitCount[#, 10, 1]>0&&PrimeQ[FromDigits[ DeleteCases[ IntegerDigits[ #], 1]]]&] (* Harvey P. Dale, Apr 10 2023 *)

Crossrefs

Cf. A176822.

Sequence in context: A062338 A143863 A158571 * A272403 A159614 A158087

Adjacent sequences: A176879 A176880 A176881 * A176883 A176884 A176885

Keyword

nonn,base

Author

Zak Seidov, Dec 07 2010

Status

approved