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

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

Offset: 0

Author

Allan C. Wechsler, Mar 07 2000

Keywords

• nonn
• word
• nice
• easy

Comments

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

Examples

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

Links

• Tanar Ulric, Table of n, a(n) for n = 0..10000
• Eric Weisstein's World of Mathematics, Number

Crossrefs

Cf. A005589, A052362-A052363.

Programs

Maple

a:= n-> length(convert(n, english)):
seq(a(n), n=0..100);  # Alois P. Heinz, Jul 30 2023

PARI

English(n, pot=[10^9,"billion", 10^6,"million", 1000,"thousand", 100,"hundred"])={ n>99 && forstep( i=1,#pot,2, n999 && 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

Python

from num2words import num2words
def a(n): return len(num2words(n).replace(" and", "").replace(chr(44), ""))
print([a(n) for n in range(78)]) # Michael S. Branicky, Jul 12 2022

Extensions

Minor edits by Ray Chandler, Jul 22 2009