#在E.N.Gilbert和J.Riordan中发现的一些序列的Maple码，#周期序列的对称类型，伊利诺伊州数学杂志。，5（1961），第657-665页。Adn：=程序（d，n）局部c，t1，t2；t2:=0；对于c从1到d do如果d mod c=0，则t2:=t2+（x^c/c）*（exp（c*z）-1）；fi；日期：t1:=exp（t2）；t1:=系列（t1，z，n+1）；排序（n！*系数（t1，z，n））；结束；Pn:=程序（n）局部d，e，t1；t1:=0；对于从1到n的d do如果n mod d=0，则t1:=t1+φ（d）*Adn（d，n/d）/n；fi；日期：t1/（1-x）；结束；Pnq:=程序（n，q）局部t1；级数（Pn（n），x，q+1）；系数（%，x，q）；结束；#Pnq（n，2）给出A000013#Pnq（n，3）给出A002076#Pnq（n，4）给出A056292#Pnq（n，5）给出A056293#Pnq（n，6）给出A056294Qnq:=（n，q）->Pnq（n，q）-Pnq（n，q-1）；Qn：=程序（n）（1-x）*Pn（n）；结束；Reven:=过程（n）（Pn（n）+Adn（2，n/2）/（1-x））/2；结束；罗德：=proc（n）局部np，j，t1；np:=（n-1）/2；Pn（n）+加法（二项式（np，j）*Adn（2，j）x/（1-x），j=0..np）；结束；#我本来希望生产A000206，但到目前为止，这还没有成功