%I #26 Jul 30 2023 21:07:38
%S 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,
%T 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,
%U 10,9,11,11,10,5,9,9,11,10,10,9,11,11,10,7,11,11,13,12,12,11,13
%N Number of characters in the English name of n, including spaces and hyphens.
%C See A007005 for the French analog, and A167507 for the "count letters only" variant (analog of A005589). - _M. F. Hasler_, Sep 20 2014
%H Tanar Ulric, <a href="/A052360/b052360.txt">Table of n, a(n) for n = 0..10000</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Number.html">Number</a>
%e Note that a(373373) = 64 whereas A005589(373373) = 56.
%p a:= n-> length(convert(n, english)):
%p seq(a(n), n=0..100); # _Alois P. Heinz_, Jul 30 2023
%o (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");
%o return( Str( English(n[1])," ",pot[i+1], if( n[2], Str(" ",English(n[2])), ""))));
%o 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],
%o Str([ "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety" ][n\10-1], if( n%10, Str("-",English(n%10)),"")))}
%o A052360(n)=#English(n) \\ _M. F. Hasler_, Jul 26 2011
%o (Python)
%o from num2words import num2words
%o def a(n): return len(num2words(n).replace(" and", "").replace(chr(44), ""))
%o print([a(n) for n in range(78)]) # _Michael S. Branicky_, Jul 12 2022
%Y Cf. A005589, A052362-A052363.
%K nonn,word,nice,easy
%O 0,1
%A _Allan C. Wechsler_, Mar 07 2000
%E Minor edits by _Ray Chandler_, Jul 22 2009
|