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 A056710 #15 Apr 08 2013 03:55:27
%S A056710 113,199,211,223,227,229,233,277,311,331,337,433,443,449,499,557,577,
%T A056710 599,661,677,733,773,811,877,881,883,887,911,977,991,997,1117,1777,
%U A056710 1999,2111,2221,2333,2777,2999,3331,4111,4441,4447,4999,5333,5557,6661,7333,8111,8887,8999
%N A056710 Near-repdigit primes such that all digits are equal except for an end-digit.
%H A056710 Giovanni Resta, <a href="/A056710/b056710.txt">Table of n, a(n) for n = 1..496</a> (terms < 10^1000)
%t A056710 Select[ Range[ 101, 10^4, 2 ], PrimeQ[ # ] && (Length[ Union[ Take[ RealDigits[ # ][ [ 1 ] ], {1, -2} ] ] ] == 1 || Length[ Union[ Take[ RealDigits[ # ][ [ 1 ] ], {2, -1} ] ] ] == 1) & ]
%t A056710 dig[n_] := Sort@Select[Flatten@Table[{d*10^(n - 1) + e*(10^(n - 1) - 1)/9, e + 10 d*(10^(n-1)- 1)/9}, {e, {1,3,7,9}}, {d, Delete[Range@9, e]}], PrimeQ]; Join @@ dig /@ Range[3, 100] (* terms < 10^100, _Giovanni Resta_, Apr 08 2013 *)
%K A056710 nonn,base
%O A056710 1,1
%A A056710 _Robert G. Wilson v_, Aug 10 2000
%E A056710 Four missing terms added by _Giovanni Resta_, Apr 07 2013