Odd Part

Author

Eric W. Weisstein
September 16, 2007

This notebook downloaded from http://mathworld.wolfram.com/notebooks/NumberTheory/OddPart.nb.

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

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

Code

OddPart[n_Integer]:=n/2^IntegerExponent[n,2]
SetAttributes[OddPart,Listable]

Table

OddPart[Range[20]]

Plot

<<Utilities`Plot`

IntegerListPlot[OddPart[Range[100]],PlotRange->All,AxesLabel->{n,Od[n]}]