

A007208


Number of letters in n (in German).
(Formerly M3222)


6



4, 4, 4, 4, 4, 4, 5, 6, 4, 4, 4, 3, 5, 8, 8, 8, 8, 8, 8, 8, 7, 13, 14, 14, 14, 14, 15, 16, 14, 14, 7, 13, 14, 14, 14, 14, 15, 16, 14, 14, 7, 13, 14, 14, 14, 14, 15, 16, 14, 14, 7, 13, 14, 14, 14, 14, 15, 16, 14, 14, 7, 13, 14, 14, 14, 14, 15, 16, 14, 14, 7
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,1


COMMENTS

Standard German orthography; a letter with an umlaut or ß is counted as a single letter: e.g., 30 maps to length("dreißig") = 7.
There are ambiguities from n=100 on, since both, "hundert" and "einhundert" are equally valid and common. The same applies for 1000 with "tausend" or "eintausend".  M. F. Hasler, Nov 03 2013
In contrast to English (A005589 vs A052360) and French (A007005 vs A167507), there are no spaces or other punctuation in German names for numbers, until 10^6 = "eine Million".  M. F. Hasler, Sep 20 2014


REFERENCES

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..70.
Wikipedia, Deutsch/Übersicht der Zahlen.
Index entries for sequences related to number of letters in n


PROG

(PARI)
/* Diacritics on umlauts are omitted and ß is represented by "B" because the GP interface cannot deal with these. The version below produces "einhundert" and "eintausend". The string "ein" can be replaced by "" in the last two lines to get "hundert" resp. "tausend". */
German(n, eins="eins")={n<20 && return(["null", eins, "zwei", "drei", "vier", "funf", "sechs", "sieben", "acht", "neun", "zehn", "elf", "zwolf", "dreizehn", "vierzehn", "funfzehn", "sechzehn", "siebzehn", "achtzehn", "neunzehn"][n+1]);
n<100 && return(if(n%10, Str(German(n%10, "ein"), "und", German(n\10*10)), ["zwanzig", "dreiBig", "vierzig", "funfzig", "sechzig", "siebzig", "achtzig", "neunzig"][n\101]));
n<1000 && return(if(n%100, Str(German(n\100*100), German(n%100)), Str(German(n\100, "ein"), "hundert")));
n<10^6 && return(if(n%1000, Str(German(n\1000*1000), German(n%1000)), Str(German(n\1000, "ein"), "tausend")))}
A007208 = n > #German(n)
\\ M. F. Hasler, Nov 01 2013


CROSSREFS

Cf. A005589 and A052360 (English analog).
Cf. A007005 and A167507 (French analog).
Sequence in context: A105682 A049109 A035651 * A165919 A035637 A001736
Adjacent sequences: A007205 A007206 A007207 * A007209 A007210 A007211


KEYWORD

nonn,word


AUTHOR

N. J. A. Sloane.


EXTENSIONS

Corrected by Markus Stausberg (markus(AT)polomi.de), Aug 08 2004
Initial term a(0) = 4 = #"null" added by M. F. Hasler, Nov 01 2013


STATUS

approved



