login
This site is supported by donations to The OEIS Foundation.

 

Logo

Invitation: celebrating 50 years of OEIS, 250000 sequences, and Sloane's 75th, there will be a conference at DIMACS, Rutgers, Oct 9-10 2014.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A005589 Number of letters in the (American) English name of n, excluding spaces and hyphens.
(Formerly M2277)
61
4, 3, 3, 5, 4, 4, 3, 5, 5, 4, 3, 6, 6, 8, 8, 7, 7, 9, 8, 8, 6, 9, 9, 11, 10, 10, 9, 11, 11, 10, 6, 9, 9, 11, 10, 10, 9, 11, 11, 10, 5, 8, 8, 10, 9, 9, 8, 10, 10, 9, 5, 8, 8, 10, 9, 9, 8, 10, 10, 9, 5, 8, 8, 10, 9, 9, 8, 10, 10, 9, 7, 10, 10, 12, 11, 11, 10, 12, 12, 11, 6, 9, 9, 11 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

COMMENTS

Diane Karloff observes that repeatedly applying the map k->A005589(k) to any starting value n always leads to 4 (cf. A016037, A133418). - Nov 27, 2007

For terms beyond a(100), it is required to make precise that this sequence uses the American English style, "one hundred one" (not "one hundred and one" as in BE), and short scale (10^9 = billion). - M. F. Hasler, Nov 03 2013

REFERENCES

Problems Drive, Eureka, 37 (1974), 8-11 and 33.

N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, Academic Press, 1995 (includes this sequence).

LINKS

Table of n, a(n) for n=0..83.

Landon Curt Noll, The English Name of a Number.

Eric Weisstein's World of Mathematics, Number

Robert G. Wilson v, English names for the numbers from 0 to 11159 without spaces or hyphens .

Index entries for sequences related to number of letters in n

EXAMPLE

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

MATHEMATICA

t={"zero", "one", "two", "three", "four", "five", "six", "seven", "eight", "nine", "ten", "eleven", "twelve", "thirteen", "fourteen", "fifteen", "sixteen", "seventeen", "eighteen", "nineteen", "twenty", "twentyone", "twentytwo", "twentythree", "twentyfour", "twentyfive", "twentysix", "twentyseven", "twentyeight", "twentynine", "thirty", "thirtyone", "thirtytwo", "thirtythree", "thirtyfour", "thirtyfive", "thirtysix", "thirtyseven", "thirtyeight", "thirtynine", "forty", "fortyone", "fortytwo", "fortythree", "fortyfour", "fortyfive", "fortysix", "fortyseven", "fortyeight", "fortynine", "fifty", "fiftyone", "fiftytwo", "fiftythree", "fiftyfour", "fiftyfive", "fiftysix", "fiftyseven", "fiftyeight", "fiftynine", "sixty", "sixtyone", "sixtytwo", "sixtythree", "sixtyfour", "sixtyfive", "sixtysix", "sixtyseven", "sixtyeight", "sixtynine", "seventy", "seventyone", "seventytwo", "seventythree", "seventyfour", "seventyfive", "seventysix", "seventyseven", "seventyeight", "seventynine", "eighty", "eightyone", "eightytwo", "eightythree", "eightyfour", "eightyfive", "eightysix", "eightyseven", "eightyeight", "eightynine", "ninety", "ninetyone", "ninetytwo", "ninetythree", "ninetyfour", "ninetyfive", "ninetysix", "ninetyseven", "ninetyeight", "ninetynine", "onehundred"}

Table[ StringLength@ t[[n]], {n, 100}] (* Robert G. Wilson v, Nov 04 2007 *)

PROG

(PARI) A005589(n, t=[10^9, #"billion", 10^6, #"million", 1000, #"thousand", 100, #"hundred"])={ n>99 && forstep( i=1, #t, 2, n<t[i] && next; n=divrem(n, t[i]); n[1]>999 && error("n >= ", 1000*t[1], " not yet implemented"); return( A005589(n[1])+t[i+1]+if( n[2], A005589( 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]), #([ "twenty", "thirty", "forty", "fifty", "sixty", "seventy", "eighty", "ninety" ][n\10-1])+if( n%10, A005589(n%10)))}  \\ - M. F. Hasler, Jul 26 2011

CROSSREFS

Cf. A006944 (ordinals), A052360, A052362-A052363, A134629, A133418, A016037.

Sequence in context: A011762 A195780 A063571 * A052360 A154913 A154915

Adjacent sequences:  A005586 A005587 A005588 * A005590 A005591 A005592

KEYWORD

nonn,word,nice,easy

AUTHOR

N. J. A. Sloane.

EXTENSIONS

Corrected and extended by Larry Reeves (larryr(AT)acm.org) and Allan C. Wechsler, Mar 20 2000

Erroneous b-file deleted by N. J. A. Sloane, Sep 25 2008

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement .

Last modified September 22 00:15 EDT 2014. Contains 247035 sequences.