OFFSET
0,1
COMMENTS
FORMULA
a(A119898(n)) = n.
MATHEMATICA
f[a_, b_] := Sort@ Table[{StringReverse[ StringReplace[ IntegerName[h, "Words"], {"\[Hyphen]" -> ""}]], h}, {h, a, b}]; u = Last /@ Join[f[0, 9], f[10, 99]]; a = Range[100] 0; Do[a[[1 + u[[x]]]] = x, {x, 99}]; a (* Giovanni Resta, Jun 13 2016 *)
CROSSREFS
KEYWORD
nonn,word,less
AUTHOR
Jonathan Vos Post, Aug 05 2006
EXTENSIONS
Data corrected by Giovanni Resta, Jun 13 2016
STATUS
approved