isA008578:=proc（n），如果n=1或isprime（n）则为true；否则为假；fi；结束时间：A120761号：=proc（nmin）局部a，lnpr，k；a：=[1，1，2]；而nops（a）<nmin do lnpr:=0；对于[op（1..nops（a）-1，a）]中的k，如果是A0008578（k），则执行lnpr:=max（lnpr，k）；fi；od:a:=[操作（a），a[-1]+lnpr]；od：返回（a）；结束时间：A120761号(80) ; #R.J.马塔尔2007年9月18日
