%I #8 May 05 2019 00:32:10
%S 2376,866,367,8737,282876,24626,7347,74383,6246,68383,3439,6623,3623,
%T 87323,2286723,784623,343247347,3432474383,343246246,3432468383,
%U 834683,834684866,834684367,8346848737,834684282876,83468424626,8346847347
%N Base-10 encoding of the Spanish name of n with one digit per letter as on a touch-tone telephone.
%C Read the name of n (cero, uno, dos, tres, etc.) from left to right and note
%C 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.
%e CERO = 2376. UNO=866. DOS=367.
%p 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:
%p namsS := ["cero","uno","dos","tres","cuatro","cinco","seis","siete","ocho","nueve","diez", "once","doce", "trece","catorce","quince","dieciseis","diecisiete",
%p "dieciocho","diecinueve","veinte","veintiuno","veintidos","veintitres", "veinticuatro","veinticinco","veintiseis","veintisiete","veintiocho" ]:
%p 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
%Y Cf. A079048, A079001.
%K nonn,word,base
%O 0,1
%A _Claudio Meller_, Oct 01 2009
%E Definition rephrased and offset changed by _R. J. Mathar_, Oct 05 2009