Eban Number

Author

Eric W. Weisstein
November 10, 2003

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

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

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

Code

EbanNumberQ[n_Integer]:=!StringMatchQ[NumberName[n],"*e*"]

Enumeration

Timing[{Length[eban=Select[Range[2,10^5,2],EbanNumberQ]],Take[eban,100]}]

Timing[{Length[eban=Select[Range[2,10^6,2],EbanNumberQ]],Take[eban,-10]}]

Timing[{Length[eban=Select[Range[2,10^7,2],EbanNumberQ]],Take[eban,-10]}]

Last[eban]

Plots

<<Utilities`Plot`

List Plot

ListPlot[eban,PlotStyle->Red,PlotRange->All,AxesLabel->TraditionalForm/@{n,"eban numbers"}]

Binary

Show[PixelPerfect[BasePlot[Take[eban,255]],BlockSize->2]]

Show[PixelPerfect[BasePlot[Take[eban,{256,256+2 255}]],BlockSize->1]]