Prime Difference Function

Author

Eric W. Weisstein
March 14, 2003

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

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

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

Plot

<<Plot`

IntegerListPlot[-Subtract@@@Partition[Table[Prime[n],{n,500}],2,1],AxesLabel->TraditionalForm/@{n,(Subscript[d, n])}]

Sequence

Partition[Table[Prime[n],{n,10}],2,1]

-Subtract@@@%