This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A224319 #10 Apr 04 2013 11:26:11
%S A224319 37,43,47,67,73,79,337,409,439,499,607,709,3637,3709,4877,6997,7487,
%T A224319 9433,76963,334777
%N A224319 Primes without "1" as a digit that remain prime when any single digit is replaced with "1".
%C A224319 No more terms < 10^13.
%H A224319 Carlos Rivera, <a href="http://www.primepuzzles.net/puzzles/puzz_591.htm">Puzzle 591</a>
%t A224319 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 A224319 Cf. A224320-A224322. Subsequence of A038603.
%K A224319 base,more,nonn
%O A224319 1,1
%A A224319 _Arkadiusz Wesolowski_, Apr 03 2013