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 A181525 #2 Mar 30 2012 17:31:31
%S A181525 2,3,5,7,11,13,29,31,41,47,53,61,79,83,97,113,131,163,181,227,229,257,
%T A181525 277,311,313,331,353,383,449,461,479,499,503,557,577,613,631,641,661,
%U A181525 683,727,757,797,811,853,863,881,883,929,947,977,997,1163,1181,1361
%N A181525 Prime numbers such that the difference between any pair of digits is 0, 2, 3, 5 or 7.
%t A181525 fQ[n_] := Union[ MemberQ[ {0, 2, 3, 5, 7}, # ] & /@ (Subtract @@ Sort[ #, Greater] & /@ Subsets[ IntegerDigits@ n, {2}])] == {True} && PrimeQ@ n; Select[ Range@ 1380, fQ]
%Y A181525 Cf. A172508, A181526.
%K A181525 nonn,base,less
%O A181525 1,1
%A A181525 _Robert G. Wilson v_, Oct 26 2010