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,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

Tanar Ulric, Table of n, a(n) for n = 0..10000

Eric Weisstein's World of Mathematics, Number

Example

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

Maple

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

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
(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

Crossrefs

Cf. A005589, A052362-A052363.

Sequence in context: A063571 A005589 A362123 * A263046 A372049 A154913

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