%I#72 2022年7月7日08:45:06

%S 4,2,4,5,6,4,3,4,4,4],3,4],5,4,8,6,6,5,7,7,5,9,9,10,11,9,8,9,6,10，

%电话：10,11,12,10,9,9,10,10,8,12,12,13,14,12,11,12,12,9,13,13,15,13，

%U 12,13,13,13，8,12,12，13,14,12,11，12,12,11,12,13，14,16,14,13,15,12,13

%N在法语中拼写数字N的字母数，不包括连字符和空格。

%C序列A007005是此序列的变体，其中计算空格和连字符。

%C在大多数语言中，都有一个数字N，在这个数字之后，所有数字的字母都比数字本身少。在英语、德语和法语中，N=4。这里，如果n>4，则a（n）<n，如果n<=4，则b（n）>n。-贝纳德·肖特，2019年1月11日

%H Wiktionnaire，<a href=“http://fr.wiktionary.org/wiki/Annexe:Nombres_de_1_%C3%A0_100_en_fran%C3%A7ais“>附件：法国100号法令（截至2009年11月18日）。

%H<a href=“/index/Na”>与数字名称相关的序列索引条目</a>

%e术语a（0），。。。，a（16）表示字符串“zéro”、“un”、“deux”、”trois“、”quatre“、”cinq“、”sive“、”sept“、”huit“、”neuf“、”dix“、”onze“、”douze“、“treize”、“quatorze”、“quinze”“、“seize”中的字符数。

%e由于不计算空格和标点符号，因此当n的拼写包含连字符时，a（n）小于字符串的长度，如“dix-sept”（a（17）=7）中的连字符，或空格如“vingtetun”（a）=9）中的空格。

%o（PARI）应用（{A167507（n）=#[0|c<-Vecsmall（法语（n）），c>96]}，[0..81]）\\由M.F.Hasler_更新，2020年2月19日[如果PARI/gp的旧版本出现错误，请使用例如Vec（Vecsmall…）。]

%o/*Helper函数：用法语拼写n。2012年2月16日，A204593扩展到10^24（现在通过第二个可选参数进一步扩展）*/

%o法语（n，t=[10^18，“万亿”，/*10^15，“台球”，*/10^12，“十亿”，10^9，“毫”，10,6，“百万”]）={if（n>999，n>=10^6*t[1]&error（n“太大-此实现限制为n<10^”，5+#Str（t[1]））；forstep（i=1，#t，2，n\t[i]&return（Str（法语（n\t[i））“t[i+1]，如果（n\t[i]>1，“s”，“”），如果（n%t[i]，Str（“法语（n%t[i]），”））；return（Str（if（n\1000>1，Str（法语（n\1000），“”，“”），“mille”，if（n%1000，Str（“”，法语（n%11000）））；

%o n<20&返回（[“0”，“un”，“deux”，”trois“，”quatre“，”cinq“，”six“，”sept“，”huit“，”neuf“，”dix“，“onze”，“douze”，”treize“，”qutorze“，”quinze“，“setche”，“dix-sept”，“dix-huit”，“dix-neuf”][n+1]）；

%o n>=100&return（Str（if（n>199，Str（法语（n\100），“”），“分”，if（n%100，Str“”，法语（n%100）），if；

%o n>80&return（Str（“quatre-ving-”，法语（n-80））；

%o n%10==0&return（Str（[“vingt”、“trente”、“quarante”、“cinquante”、“soixante”、“soixante dix”、“quatre vingts”][n\10-1]））；

%o Str（法语（（n\10-（n>70））*10），if（n%10==1，“et”，“-”），法语（n%10+10*（n>70%））}

%2009年11月19日，o\\_M.F.Hasler

%Y参考A005589（英语模拟），A167508（计数不同的字母）。

%Y参考A001050（芬兰模拟）、A006994（俄罗斯模拟）、A007208（德国模拟）、A011762（西班牙模拟）、A026858（意大利模拟）。

%K nonn，单词

%0、1

%A _M.F.Hasler，2009年11月18日

%E关键字“fini”由_M.F.Hasler_删除，2009年11月19日

%E a（80）和a（81）由_Bernard Schott修正，2020年2月19日