with(numtheory):etr:=proc(p)局部b;b: =proc(n)选项记忆;局部d,j;如果n=0,则1另外加(加(d*p(d),d=除数(j))*b(n-j),j=1..n)/n fi结束端:shr:=proc(p)n->`if`(n=0、1,p(n-1))结束端:b[0]:=etr(n->1):对于j从1到7,do b[j]:=etr(shr(b[j-1])))od:a:=shr(b[7]):seq(a(n),n=0..31);[发件人_阿洛伊斯·海因茨 (亨氏(自动变速箱)小时-海尔布隆.判定元件), _, 2008年9月8日]