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 A181526 #2 Mar 30 2012 17:31:31
%S A181526 2,3,5,7,13,23,29,31,41,43,47,53,61,67,79,83,89,97,103,163,241,257,
%T A181526 421,431,457,461,463,467,479,503,523,547,563,587,613,631,641,643,647,
%U A181526 653,683,769,853,857,863,947,967,1423,2053,2143,2341,2503,2543,2749,3461
%N A181526 Prime numbers such that the difference between any pair of digits is 1, 2, 3, 5 or 7.
%t A181526 fQ[n_] := Union[ MemberQ[ {1, 2, 3, 5, 7}, # ] & /@ (Subtract @@ Sort[ #, Greater] & /@ Subsets[ IntegerDigits@ n, {2}])] == {True} && PrimeQ@ n; Select[ Range@ 4230, fQ]
%Y A181526 Cf. A172508, A181525.
%K A181526 nonn,base,less
%O A181526 1,1
%A A181526 _Robert G. Wilson v_, Oct 26 2010