%I#35 2023年1月6日19:50:15

%S 4,1,5,8,9,11,12,13,16,17,20,22,23,25,28,30,31,34,36,39,41,43,44,46，

%电话：47,48,50,51,52,53,55,56,57,58,61,62,64,65,66,67,68,71,72,74,75,76,77，

%U 79,80,81,83,84,85,86,89,90,91,93,94,96,97,99100103105单位

%用法语书写时，描述辅音位置的N序列（版本1）。

%C顺序取决于初始术语的选择方式-请参阅Angelini文章中的精确定义。

%H Eric Angelini，<a href=“https://www.pourlascience.fr/sr/article/jeux-de-suites-1637.php“>《Jeux-de-suites》，摘自《Pour-La Science档案》，第32-35页，第59卷（Jeux-math'），2008年4月/6月，巴黎。

%o（PARI）列表a（n）=frconspos（[4]）（n）

%o frconspos（startseq）=n->{

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

%o如果（n<=#startseq，seq[1..n]，对于（i=1，n，my（thisfrench=Vec（strchr（[c|c<-Vecsmall（French（seq[i]），c>96]）），辅音索引=select（x->setsearch（辅音，x），thisfrench，1））；

%o表示（j=1，#辅音索引，如果（#select（I->I==辅音索引[j]+charoffset，startseq）==0，如果（seqindex+j-1<=n，seq[seqindexe]=辅音指数[j]+charoffset；seqindex++））；

%o charoffset+=#本法语）；

%o序列号）}

%o/*法语（）见A167507*/

%o泰勒·巴斯比，2022年12月31日

%Y参考A139212、A139357、A13935.8、A167507。

%K nonn，单词，简单

%O 1,1号机组

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

%E a（12）修正了Tyler Busby中的更多术语，2022年12月31日