Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #10 Apr 04 2013 11:26:11
%S 37,43,47,67,73,79,337,409,439,499,607,709,3637,3709,4877,6997,7487,
%T 9433,76963,334777
%N Primes without "1" as a digit that remain prime when any single digit is replaced with "1".
%C No more terms < 10^13.
%H Carlos Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_591.htm">Puzzle 591</a>
%t 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
%Y Cf. A224320-A224322. Subsequence of A038603.
%K base,more,nonn
%O 1,1
%A _Arkadiusz Wesolowski_, Apr 03 2013