OFFSET
0,1
COMMENTS
Read the name of n (cero, uno, dos, tres, etc.) from left to right and note
a,b,c -> 2, d,e,f -> 3, g,h,i -> 4, j,k,l -> 5, m,n,o -> 6, p,q,r,s -> 7, t,u,v -> 8, w,x,y,z -> 9 on a letter-by-letter basis.
EXAMPLE
CERO = 2376. UNO=866. DOS=367.
MAPLE
A079001 := proc(c) op(StringTools[Ord](c) -96, [2, 2, 2, 3, 3, 3, 4, 4, 4, 5, 5, 5, 6, 6, 6, 7, 7, 7, 7, 8, 8, 8, 9, 9, 9, 9]) ; end:
namsS := ["cero", "uno", "dos", "tres", "cuatro", "cinco", "seis", "siete", "ocho", "nueve", "diez", "once", "doce", "trece", "catorce", "quince", "dieciseis", "diecisiete",
"dieciocho", "diecinueve", "veinte", "veintiuno", "veintidos", "veintitres", "veinticuatro", "veinticinco", "veintiseis", "veintisiete", "veintiocho" ]:
A079048 := proc(n) global namsS ; local a, s, i, c ; s := op(n+1, namsS) ; a := 0 ; for i from 1 to length(s) do c := substring(s, i) ; a := 10*a+A079001(c) ; od: a ; end: seq(A079048(n), n=0..28) ; # R. J. Mathar, Oct 05 2009
CROSSREFS
KEYWORD
nonn,word,base
AUTHOR
Claudio Meller, Oct 01 2009
EXTENSIONS
Definition rephrased and offset changed by R. J. Mathar, Oct 05 2009
STATUS
approved