Double Wieferich Prime Pair

Author

Eric W. Weisstein
March 6, 2004

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

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

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

Test

DoubleWieferichQ[p_,q_]:=(PowerMod[p,q-1,(q^2)]==PowerMod[q,p-1,(p^2)]==1)

Known List

l={{2, 1093},{3, 1006003},{5 , 1645333507},{83, 4871},{911, 318917},{2903, 18787}};

DoubleWieferichQ@@@l