(PARI)a(n)={n>1||return;#select(Vec(法语(n=a(n-1))),x->setsearch(Vec(“aeiou”),x))+n}/*参见A167507型法语()*/
/*当n>>100时,带有记忆功能的版本可获得更好的性能:*/
A139212号(n) ={type(a139212)!=“t_VEC”&&a139212=[];
n>#a139212&&a139212=concat(a139212,向量(n-#a139121));
(a139212[n]|n==1)&&返回(a13921[n]);
a139212[n]=/*到目前为止,只能省略记忆*/
|