提出

经核准的

编辑

提出

（PARI）列表a（n）=法语辅音位置闭合frconspos公司（[4]）（n）

法语辅音位置闭合frconspos公司（startseq）=n->{

提出

编辑

编辑

提出

（PARI）lista（n）=法语辅音位置闭合（[4]）（n）

法语辅音位置闭合（startseq）=n->{

my（辅音=Vec（“bcdfghjklmnpqrstvwxyz”），charoffset=0，seqindex=#startseq+1，seq=Vec（startseq，n））；

如果(n个 <= #startseq（启动序列）, 序列[1..n个], 对于(帕里) 法国人我 = 1, n个, 我的(nn个) 这个法国人 =Vec公司(strchr（[c|c<-Vecsmall（法语(nn个序列[我]))，c>96]）), 辅音索引 = 选择(x个->集合搜索(辅音, x个), 这个法国人, 1));

李斯特对于(j个 = 1, #辅音索引, 如果(#选择(我 -> 我 == 辅音索引[j个] + 字符偏移, startseq（启动序列）) == 0, 如果(序列索引 + j个 - 1 <= n个) , 序列[序列索引] ={辅音索引[j个] + 字符偏移; seqindex公司++)));

my（startseq=[4]，charoffset=0，seqindex=#startseq+1，seq=Vec（startsey，n））；

如果（n<=#startseq，seq[1..n]，对于（term=1，n，my（thisfrench=Vec（法语（seq[term]））），辅音索引=select（x->setsearch（Vec（“bcdfghjklmnpqrstvwxyz”），x），thisfrench，1））；

对于（j=1，#辅音索引，如果（#select（i->i==辅音索引[j]+charoffset，startseq）==0，如果（seqindex+j-1>n，return（seq），seq[seqindexe]=辅音指数[j]+charoffset；seqindex++））；

charoffset+=#这个法语）)};

序列号）}

提出

编辑

编辑

提出

A类 不-单调的 模拟 属于 A139212号 在里面 哪一个 这个 序列 描写 序列 描述 序列用法语书写时辅音的位置（版本1）。

提出

编辑

编辑

提出

如果（n<=#startseq，seq[1..n]，对于(我 学期 =1，n，my（thisfrench=Vec（法语（seq[我学期]))，辅音索引=select（x->setsearch（Vec（“bcdfghjklmnpqrstvwxyz”），x），thisfrench，1））；

for（j=1，#辅音索引，if（#选择(我 我 ->我 我 ==辅音索引[j]+字符偏移，startseq）==0，如果（seqindex+j-1<= > 编号：，返回(序列), seq[seqindex]=辅音索引[j]+字符偏移；seqindex++））；

charoffset+=#这个法语）;)}

序列号）}

我的（startseq=[4]，序列号 字符偏移 = 0, 序列索引 =Vec公司(凹面（concat）(应用(法国人, #startseq（启动序列）))), + 1, seq=Vec（startseq，n））；

如果（n<=长度(#startseq（启动序列）), , 序列[1..n]，用于（i）=长度(startseq（启动序列）) + 1，n，对于我的(这个法国人 = Vec公司(法国人(j个 序列[我])), 辅音索引 =选择(x个->集合搜索(Vec公司("bcdfghjklmnpqrstvwxyz公司"), x个), 这个法国人, 1, 长度(startseq（启动序列）), 如果(startseq（启动序列）[j个] <= 长度(序列号), seqstr公司[startseq（启动序列）[j个]] = " "));

my（index=select（x->setsearch（Vec（“bcdfghjklmnpqrstvwxyz”），x），seqstr，1）[1]）；

序列号 = 凹面（concat）对于(序列号, Vec公司j个 = 1, #辅音索引, 如果(法国人#选择(指数))我 -> 我 == 辅音索引[j个] + 字符偏移, startseq（启动序列）); == 0, 如果(序列索引 + j个 - 1 <= n个, 序列[我序列索引] =指数辅音索引[j个] + 字符偏移; 序列索引++)));

seqstr[index]=“”）；

charoffset+=#thisfrench）；