Rearrangement Prime Pair

Author

Eric W. Weisstein
October 13, 2002

This notebook downloaded from http://mathworld.wolfram.com/notebooks/PrimeNumbers/RearrangementPrimePair.nb.

For more information, see Eric's MathWorld entry http://mathworld.wolfram.com/RearrangementPrimePair.html.

©2005 Wolfram Research, Inc. except for portions noted otherwise

Enumeration

EdwardsQ[{p_,q_}]:=Equal@@Sort/@IntegerDigits/@{p,q}

(l=Select[Partition[Table[Prime[n],{n,20000}],2,1],EdwardsQ])//Timing

Length[l]