Brocard's Conjecture

Author

Eric W. Weisstein
February 8, 2004

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

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

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

Plot

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

p=Prime[Range[200]];//Timing

IntegerListPlot[-Subtract@@@Partition[PrimePi[p^2],2,1],
AxesLabel->TraditionalForm/@{n,Subtract@@PrimePi/@(Prime[#]^2&/@{n+1,n})}]