login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

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

%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