

A052360


Number of characters in the English name of n, including spaces and hyphens.


35



4, 3, 3, 5, 4, 4, 3, 5, 5, 4, 3, 6, 6, 8, 8, 7, 7, 9, 8, 8, 6, 10, 10, 12, 11, 11, 10, 12, 12, 11, 6, 10, 10, 12, 11, 11, 10, 12, 12, 11, 5, 9, 9, 11, 10, 10, 9, 11, 11, 10, 5, 9, 9, 11, 10, 10, 9, 11, 11, 10, 5, 9, 9, 11, 10, 10, 9, 11, 11, 10, 7, 11, 11, 13, 12, 12, 11, 13
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,1


COMMENTS

See A007005 for the French analog, and A167507 for the "count letters only" variant (analog of A005589).  M. F. Hasler, Sep 20 2014


LINKS

Table of n, a(n) for n=0..77.
Eric Weisstein's World of Mathematics, Number


EXAMPLE

Note that a(373373) = 64 whereas A005589(373373) = 56.


PROG

(PARI) English(n, pot=[10^9, "billion", 10^6, "million", 1000, "thousand", 100, "hundred"])={ n>99 && forstep( i=1, #pot, 2, n<pot[i] && next; n=divrem(n, pot[i]); n[1]>999 && error("n >= 1000 ", pot[2], " not yet implemented");
return( Str( English(n[1]), " ", pot[i+1], if( n[2], Str(" ", English(n[2])), ""))));
if( n<20, ["zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen"][n+1],
Str([ "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety" ][n\101], if( n%10, Str("", English(n%10)), "")))}
A052360(n)=#English(n) \\  M. F. Hasler, Jul 26 2011


CROSSREFS

Cf. A005589, A052362A052363.
Sequence in context: A195780 A063571 A005589 * A263046 A154913 A154915
Adjacent sequences: A052357 A052358 A052359 * A052361 A052362 A052363


KEYWORD

nonn,word,nice,easy


AUTHOR

Allan C. Wechsler, Mar 07 2000


EXTENSIONS

Minor edits by Ray Chandler, Jul 22 2009


STATUS

approved



