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