Aban Number

Author

Eric W. Weisstein
August 18, 2007

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

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

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

Code

AbanNumberQ[n_Integer]:=!StringMatchQ[NumberName[n],"*a*"]

Enumeration

Select[Range[10^3-1,10^4],AbanNumberQ[#]&]//Timing

Length[aban=Rest[Join[Sequence@@Table[Range[n 10^6,n 10^6+999],{n,0,9}]]]]

And@@(AbanNumberQ/@aban)

Plots

<<Utilities`Plot`

List Plot

ListPlot[aban,PlotStyle->Red,PlotRange->All,AxesLabel->{n,"aban numbers"}]

Binary Plot

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

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