F:=proc(k,n)选项记忆;如果n<=1,则n;否则k*procname(k,n-1)+procname(k,n-2);结束条件:;结束进程:
Pper:=proc(k,m)局部cha,zer,n,fmodm;恰恰:=[];泽尔:=[];对于0中的n,执行fmodm:=F(k,n)modm;cha:=[op(cha),fmodm];如果fmodm=0,则zer:=[op(zer),n];结束条件:;如果nops(zer)=5,则断开;结束条件:;结束do;如果[op(1.zer[2],cha)]=[op(zer[2]+1..zer[3],cha;elif[op(1.zer[3],cha)]=[op(zer[3]+1..zer[5],cha;否则返回zer[5];结束条件:;结束进程:
k:=6;seq(Pper(k,m),m=1..80);
|