

A073029


Names for numbers in English, with each letter transformed into its index in the alphabet.


7



26, 5, 18, 15, 15, 14, 5, 20, 23, 15, 20, 8, 18, 5, 5, 6, 15, 21, 18, 6, 9, 22, 5, 19, 9, 24, 19, 5, 22, 5, 14, 5, 9, 7, 8, 20, 14, 9, 14, 5, 20, 5, 14, 5, 12, 5, 22, 5, 14, 20, 23, 5, 12, 22, 5, 20, 8, 9, 18, 20, 5, 5, 14, 6, 15, 21, 18, 20, 5, 5, 14, 6, 9, 6, 20, 5, 5, 14, 19, 9, 24, 20, 5
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,1


COMMENTS

Find smallest n's for which a(n)=1,2,3,4,...,26.
A: The numbers 10 and 11 never occur. The rows in which the others occur first (assuming use of the "short scale") are 1000 (thousAnd), 10^9 (Billion), 10^27 (oCtillion), 100 (hunDred), 0 (zEro), 4 (Four), 8 (eiGht), 3 (tHree), 5 (fIve), ,  (j & k don't occur in English names of numbers), 11 (eLeven), 10^6 (Million), 1 (oNe), 0 (zerO), 10^24 (sePtillion), 10^15 (Quadrillion), 0 (zeRo), 6 (Six), 2 (Two), 4 (foUr), 5 (fiVe), 2 (tWo), 6 (siX), 20 (twentY), 0 (Zero). Converting the position in the row plus the preceding row lengths to a linear index n this yields (after subtracting 1 to match offset 0 of the sequence): 18452, ?, ?, 864, 1, 15, 33, 11, 20, , , 44, ?, 5, 3, ?, ?, 2, 23, 7, 17, 21, 8, 25, 115, 0. The graph nicely shows the position & frequency of the individual letters.  M. F. Hasler, Feb 06 2016


LINKS

M. F. Hasler, Table of n, a(n) for n = 0..18454 (rows 0..1000 "flattened"), Feb 06 2016
M. F. Hasler, rows 0  1000, Feb 06 2016
Robert G. Wilson v, American English names for the numbers from 0 to 100999 without spaces or hyphens, Jun 08 2010


EXAMPLE

Top row is for "zero"; "z" is the 26th letter in the alphabet, "e" the fifth, "r" the 18th and "o" the 15th, so the first row is 26,5,18,15.


MATHEMATICA

alef=Characters["abcdefghijklmnopqrstuvwxyz"]; numb="zeroonetwothreefourfivesixseveneightnineteneleven[...]"; ch=Characters[numb]; seq[n_] := Position[alef, ch[[n]]][[1, 1]]. (* Franklin T. AdamsWatters, Jun 02 2006 *)
(* see the hyper link to a001477.txt, copy the first 17 lines and then paste and assign to the variable 'str' as a string as follows *)
str = "zeroonetwothreefourfivesixseveneightnineteneleventwelvethirteenfourteenfifteensixteen";
Characters@ str /. Flatten[ Table[ {FromCharacterCode[96 + n] > n}, {n, 26}]] (* Robert G. Wilson v, Jun 08 2010 *)


PROG

(PARI) A073029_row(n)=select(t>t>64, Vec(Vecsmall(English(n))))%32 \\ See A052360 for English().  M. F. Hasler, Feb 06 2016


CROSSREFS

Cf. A005589 (row lengths).
Cf. A073327 (row sums).
Cf. A072922.
Sequence in context: A040658 A217974 A040659 * A040657 A277215 A040656
Adjacent sequences: A073026 A073027 A073028 * A073030 A073031 A073032


KEYWORD

word,nonn,easy,tabf,look


AUTHOR

Zak Seidov, Aug 22 2002


EXTENSIONS

Corrected and extended by Franklin T. AdamsWatters, Jun 02 2006, Oct 24 2006


STATUS

approved



