A165948 Base-10 encoding of the Spanish name of n with one digit per letter as on a touch-tone telephone.

2376, 866, 367, 8737, 282876, 24626, 7347, 74383, 6246, 68383, 3439, 6623, 3623, 87323, 2286723, 784623, 343247347, 3432474383, 343246246, 3432468383, 834683, 834684866, 834684367, 8346848737, 834684282876, 83468424626, 8346847347

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.

Links

Table of n, a(n) for n=0..26.

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

Cf. A079048, A079001.

Sequence in context: A045303 A165245 A250588 * A183599 A226000 A163026

Adjacent sequences: A165945 A165946 A165947 * A165949 A165950 A165951

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