Number

Author

Eric W. Weisstein
May 10, 2006

This notebook downloaded from http://mathworld.wolfram.com/notebooks/Numbers/Number.nb.

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

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

Table

NumberName/@Range[-2,2]

DisplayForm[GridBox[
Flatten/@Transpose[Partition[{#,NumberName[#]}&/@Range[150],50]],GridFrame->True,RowLines->True,ColumnLines->True,ColumnAlignments->{Right,Left}]]

StringJoin@@(ToString[#]<>"  "<>NumberName[#]<>"\n"&/@Range[150])

DisplayForm[GridBox[
{HoldForm[(10^(#))],NumberName[10^#]}&/@Range[6,63,3],GridFrame->True,RowLines->True,ColumnLines->True,ColumnAlignments->{Left}]]

Number of Syllables

<<Utilities`Hyphenate`

Syllables/@NumberName/@Range[0,110]

Length/@%

Number of Characters

Including spaces and hyphens

A052360

StringLength/@NumberName/@Range[110]

NumberName[101]

StringLength[NumberName[101]]

Plots

<<Utilities`Plot`

Show[GraphicsArray[
Block[{$DisplayFunction=Identity},
{
IntegerListPlot[StringLength/@NumberName/@Range[100],AxesLabel->TraditionalForm/@{n,"characters"}],
ListPlot[StringLength/@NumberName/@Range[1000],PlotJoined->True,PlotStyle->Red,AxesLabel->TraditionalForm/@{n,"characters"}]
}
],GraphicsSpacing->-.05
]]

Show[PixelPerfect[BasePlot[StringLength/@NumberName/@Range[255]],BlockSize->2]]

Show[PixelPerfect[BasePlot[StringLength/@NumberName/@Range[256,256+2 255]],BlockSize->1]]

Letters Only

NumberLetters[n_]:=StringLength[StringReplace[NumberName[n],{" "->"","-"->""}]]

A005589

NumberLetters/@Range[50]

A005589={4,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,6,9,9,11,10,10,9,11,11,10,6,9,9,11,10,10,9,11,11,10,6,9,9,11,10,10,9,11,11,10,5,8,8,10,9,9,8,10,10,9,5,8,8,10,9,9,8,10,10,9,7,10,10,12,11,11,10,12,12,11,6,9,9,11};

A052361={4,3,3,5,4,4,3,5,5,4,3,6,6,8,8,7,7,9,8,8,6,9,9,11,10,10,9,11,11,10,6,9,9,11,10,10,9,11,11,10,5,8,8,10,9,9,8,10,10,9,5,8,8,10,9,9,8,10,10,9,5,8,8,10,9,9,8,10,10,9,7,10,10,12,11,11,10,12,12,11,6,9,9,11};

diff=A005589-A052361

(Position[diff,1]//Flatten)-1

Wrong:

A005589[[#]]&/@Range[41,50]

Correct:

A052361[[#]]&/@Range[41,50]

High-Water Marks

pos is 052363

Timing[{hwm,pos}=HighWaterMarks[NumberLetters/@Range[10^4]]]

Timing[{hwm,pos}=HighWaterMarks[NumberLetters/@Range[10^5]]]

Timing[{hwm,pos}=HighWaterMarks[NumberLetters/@Range[10^6]]]

Timing[{hwm,pos}=HighWaterMarks[NumberLetters/@Range[10^7]]]

Plots

<<Utilities`Plot`

Show[GraphicsArray[
Block[{$DisplayFunction=Identity},
{
IntegerListPlot[NumberLetters/@Range[100],AxesLabel->TraditionalForm/@{n,"letters"}],
ListPlot[NumberLetters/@Range[1000],PlotJoined->True,PlotStyle->Red,AxesLabel->TraditionalForm/@{n,"letters"}]
}
],GraphicsSpacing->-.05
]]

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

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