Cramer Conjecture

Author

Eric W. Weisstein
February 8, 2004

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

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

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

Plot

<<Utilities`Plot`
<<Utilities`Typesetting`

p=Prime/@Range[500];

IntegerListPlot[(#2-#1)/Log[#1]^2&@@@Partition[p,2,1],
AxesLabel->TraditionalForm/@{n,HoldForm[((Subscript[p, n+1])-(Subscript[p, n]))/(ln (Subscript[p, n]))^2]}]