%I#11 2017年6月14日01:04:09

%S 0,2,4,7,8,10,11,13,16,19,22,25,27,29,32,36,39,43,49,55,60,64,71,78，

%电话85,90,95102105107109112116120122126129133138143150155，

%电话：1611681751831901962042102142212272322392462542742852933033083133253303335341357365373383

%N前面法语单词中元音的数量。

%C用法语单词组成一个序列，如下所示：向左看，朝向序列的开头，写下你看到的元音的数量；重复；然后用相应的数字替换单词。

%C单词的顺序是：零、二、四、七、六、六、四、四、六、七、四、三、四、五、六、五、七、七、五、四、八、六、八、七、八、八、五、八、四、十、六、十、七、十、五、五、十、八、十、。。。

%连字符、重音符号和空格不计算在内。

%D E.Angelini，“Jeux de suites”，摘自《Pour La Science档案》，第32-35页，第59卷（Jeux math'），2008年4月/6月，巴黎。

%e第二个单词是“deux”（因此a（2）=2代表“e”和“u”），因为在第一个单词（“zéro”）的末尾，我们可以看到左边的两个元音（‘e’和‘o’）。

%o（PARI）a（n）={n>1||return；#select（Vec（法语（n=a（n-1））），x->setsearch（Vec（“aeiou”），x））+n}/*法语（）见A167507*/

%o/*带有记忆功能的版本，在n>>100时可获得更好的性能：*/

%o A139212（n）={类型（A139212）！=“t_VEC”&&A139212=[]；

%o n>#a139212&&a139212=concat（a139212，向量（n-#a139121））；

%o（a139212[n]|n==1）&&返回（a13921[n]）；

%o a139212[n]=/*到目前为止，只能省略记忆*/

%o#select（Vec（法语（A139212（n-1））），x->setsearch

%Y有关英文版本，请参阅A139282。

%K nonn，单词，简单

%O 1,2号机组

%A _N.J.A.Sloane（基于Angelini的文章），2008年6月8日

%E固定偏移量（根据示例）和示例中的输入错误。M.F.Hasler，2011年9月29日