Negadecimal

Author

Eric W. Weisstein
February 21, 2006

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

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

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

Negadecimal

Table[{ToString[i]<>"  "<>ToString[FromDigits[NegativeIntegerDigits[i,-10]]]},{i,30}]//TableForm

Position[Table[FromDigits[IntegerDigits[i,10]]==FromDigits[Negadecimal[i]],{i,1000}],True]//Flatten