Agoh's Conjecture

Author

Eric W. Weisstein
January 28, 2003

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

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

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

Code

FractionMod[r_Integer,n_]:=Mod[r,n,-n/2]
FractionMod[r_Rational,n_]:=Mod[Numerator[r] PowerMod[Denominator[r],-1,n],n,-n/2]

Table

table=Table[FractionMod[n BernoulliB[n-1],n],{n,100}]

Flatten[Position[table,-1]]

Table[Prime[n],{n,PrimePi[97]}]