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 A157009 #6 Nov 21 2013 12:49:34
%S A157009 3,41,47,137,151,173,227,283,317,401,443,467,487,557,647,773,823,883,
%T A157009 1051,1217,1277,1307,1367,1381,1433,1453,1543,1637,1721,1783,1831,
%U A157009 1873,2027,2083,2207,2221,2243,2267,2281,2287,2357,2423,2441,2447,2551,2683
%N A157009 Primes p such that 3 = abs(largest digit of p - sum of all the other digits of p).
%C A157009 Since zero digits are allowed, sequence is almost certainly infinite. - Zak Seidov, Feb 22 2009
%e A157009 a(1)=3 because 3=abs(3-0). a(4)=137 because 1<3<7 and 3=abs(7-(1+3)).
%t A157009 moQ[n_]:=Module[{idn=IntegerDigits[n]},Abs[2Max[idn]-Total[idn]] ==3]; Select[Prime[Range[500]],moQ] (* _Harvey P. Dale_, May 12 2011 *)
%Y A157009 Cf. A000040, A156979.
%K A157009 nonn,base
%O A157009 1,1
%A A157009 _Juri-Stepan Gerasimov_, Feb 21 2009
%E A157009 Removed 1481. _R. J. Mathar_, Feb 21 2009