Iban Number

Author

Eric W. Weisstein
November 10, 2003

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

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

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

Code

IbanNumberQ[n_Integer]:=!StringMatchQ[NumberName[n],"*i*"]

Enumeration

Length[iban=Select[Range[10^4],IbanNumberQ[#]&]]//Timing

Take[iban,100]

Length[iban=Select[Range[10^5],IbanNumberQ[#]&]]//Timing

Length[iban=Select[Range[10^6+100],IbanNumberQ[#]&]]//Timing

Length[iban=Select[Range[777777],IbanNumberQ[#]&]]//Timing

Last[iban]

Plots

<<Utilities`Plot`

List Plot

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

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

Binary

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

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