|
| |
|
|
A052360
|
|
Number of characters in the English name of n, including spaces and hyphens.
|
|
13
| |
|
|
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; internal format)
|
|
|
|
OFFSET
| 0,1
|
|
|
LINKS
| 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\10-1], if( n%10, Str("-", English(n%10)), "")))}
A052360(n)=#English(n) \\ - M. F. Hasler, Jul 26 2011
|
|
|
CROSSREFS
| Cf. A005589, A052362-A052363.
Sequence in context: A195780 A063571 A005589 * A154913 A154915 A006994
Adjacent sequences: A052357 A052358 A052359 * A052361 A052362 A052363
|
|
|
KEYWORD
| nonn,word,nice,easy
|
|
|
AUTHOR
| Allan Wechsler (acw(AT)alum.mit.edu), Mar 07 2000
|
|
|
EXTENSIONS
| Minor edits by Ray Chandler (rayjchandler(AT)sbcglobal.net), Jul 22 2009
|
| |
|
|
