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