Positive Integer

Author

Eric W. Weisstein
March 29, 2004

This notebook downloaded from http://mathworld.wolfram.com/notebooks/IntegerSequences/PositiveInteger.nb.

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

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

Sequence

Table[n,{n,20}]

Range[20]

Recurrence Equation

RSolve[{a[n]==a[n-1]+1,a[1]==1},a[n],n]

Binary

<<Utilities`Plot`

Show[PixelPerfect[BasePlot[Range[255]],BlockSize->2]]

Show[PixelPerfect[BasePlot[Range[256,256+2 255]],BlockSize->1]]

Plot

<<Utilities`Plot`

IntegerListPlot[Range[50],AxesLabel->TraditionalForm/@{n,n}]

FilledListPlot[Range[100],AxesLabel->TraditionalForm/@{n,n}]