login
A224319
Primes without "1" as a digit that remain prime when any single digit is replaced with "1".
3
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.
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
KEYWORD
base,more,nonn
AUTHOR
STATUS
approved