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,1

Comments

No more terms < 10^13.

Links

Table of n, a(n) for n=1..20.

Carlos Rivera, Puzzle 591

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

Crossrefs

Cf. A224320-A224322. Subsequence of A038603.

Sequence in context: A217411 A155849 A295154 * A282111 A110563 A178777

Adjacent sequences: A224316 A224317 A224318 * A224320 A224321 A224322

Keyword

base,more,nonn

Author

Arkadiusz Wesolowski, Apr 03 2013

Status

approved