A224319 Primes without "1" as a digit that remain prime when any single digit is replaced with "1".

37, 43, 47, 67, 73, 79, 337, 409, 439, 499, 607, 709, 3637, 3709, 4877, 6997, 7487, 9433, 76963, 334777

Offset: 1

Author

Arkadiusz Wesolowski, Apr 03 2013

Keywords

• base
• more
• nonn

Comments

No more terms < 10^13.

Links

• Carlos Rivera, Puzzle 591

Crossrefs

Cf. A224320-A224322. Subsequence of A038603.

Programs

Mathematica

lst = {}; n = 1; Do[If[PrimeQ[p], i = IntegerDigits[p]; If[FreeQ[i, n], t = 0; s = IntegerLength[p]; Do[If[PrimeQ@FromDigits@Insert[Drop[i, {d}], n, d], t++, Break[]], {d, s}]; If[t == s, AppendTo[lst, p]]]], {p, 334777}]; lst