%I M3222#57 2024年7月6日01:38:58
%S 4,4,4,14,4:4,5,6,4,4,4,3,5,8,8,8,8,7,13,14,14,15,16,14,14,
%T 7,13,14,14,14,14,15,16,14,14,7,13,14,14,14,14,15,16,14,14,7,13,14,14,
%U 14,14,15,16,14,14,7,13,14,14,14,14,14,14:15,16,14,7
%N德语名称N的字母数。
%C标准德语正字法;带有元音变音或ß的字母被视为单个字母:例如,30映射到长度(“drei \223»ig”)=7。
%从n=100开始就有歧义,因为“hundert”和“einhundert”都是同样有效和常见的。这同样适用于带有“tausend”或“eintausend”的1000_M.F.Hasler,2013年11月3日
%C与英语(A005589 vs A052360)和法语(A007005 vs A167507)相比,德语名称中数字没有空格或其他标点符号,直到10^6=“eine Million”_M.F.Hasler,2014年9月20日
%对于101*10^3中间是否有一个“s”,“(ein)hundertein(s)tausend”似乎也存在歧义_M.F.Hasler,2023年4月8日
%D N.J.A.Sloane和Simon Plouffe,《整数序列百科全书》,学术出版社,1995年(包括该序列)。
%H维基百科,<a href=“https://de.wiktionary.org/wiki/wiktionary:Deutsch/%C3%9Cberscht_der_Zahlen“>德国/扎伦大学。
%H<a href=“/index/Lc#letters”>索引与n中字母数相关的序列条目</a>
%o(PARI)/*由于带有ä、ö、ü或ß的名称不能在GP界面中直接作为字符串输入,为了提高主函数的效率和可读性,我们使用了一个单独的名称列表。注意,默认的词典编纂顺序是ISO 8859-1字符代码(“z”<“ß”<“ä”)。在不适用的应用中,可以将以下特殊字符替换为“ae,oe,ue,ss”或“a,o,u,s”。【M·F·哈斯勒,2024年7月5日】*/
%o{deutsch=[“eins”,“zwei”,“drei”,“vier”,Str(“f”Strcr(252)“nf”nzehn“、”zwanzig“、Str(”drei“Strcr(223)”ig“)、”vierzig“,Str(“f”Strcr(252)”nfzig“)、“sechzig”、“siebzig”,“achtzig”,“neunzig”]}
%o德语(n,e=“eins”,power=0,name=“”)={if(power/*内部助手函数*/
%o,n=divrem(n,幂);Str(德语(n[1],e)名称,if(n[2],德语(n[2]),“”)
%o,n<20,如果(n>1,deutsch[n],n,e,“null”)
%o,n<100,Str(如果(n%10,Str(德语(n%10,“ein”)“und”),“”)德国[n\10+18])
%o,n<1000,德语(n,“ein”,100,“hundert”)\\将“ein
%o,n<10^6,德语(n,“ein”,1000,“tausend”)\\hundert/不带“ein-”
%o,我的(t=3);而(n>=10^t,t+=3);德语(n,“ein”,10^t-=3,strprintf(
%o如果(n\10^t>1,“%sen”,t%2,“e%se”,“e%s”)如果(n%10^t,“”,“”),
%o Str([“M”,“B”,“Tr”,“Quartd”,“Quint”,“Sext”,“九月”,“十月”,“Non”,
%o“Dez”,“Undez”/*等*/][t\6],“illi”,[“on”,“ard”][t%2+1]))
%o)}更新日期:2020年3月3日,2023年4月8日,2024年7月5日
%o A007208=n->#德语(n)\\_M.F.Hasler_,2013年11月1日
%o A007208(n)=vecsum([c>32|c<-Vecsmall(德语(n))])\\排除空格;与n<10^6无关_M.F.Hasler,2024年7月5日
%Y参考A005589和A052360(英语模拟)。
%Y参考A007005和A167507(法国模拟)。
%K nonn,单词
%0、1
%A.N.J.A.斯隆。
%E由Markus Stausberg修订(Markus(AT)polomi.de),2004年8月8日
%E首字母a(0)=4=#“null”,由M.F.Hasler_于2013年11月1日添加