isBalPr:=进程(p,o)局部r,s,i;r:=p;如果isprime(p),则s:=p;对于i从1到o do r:=nextprime(r);s:=s+r;结束do:r:=p;对于i从1到o做r:=预素数(r);s:=s+r;结束do:s:=s/(2*o+1);如果s=p,则为真;否则为假;结束条件:;否则为假;结束条件:;结束进程:
isA160920:=过程(p)是BalPr(p,2),是BalP(p,3),也是BalPR(p,4);结束进程:
对于从10开始的i,做p:=ithprime(i);如果是A160920(p),则打印f(“%d,\n”,p);结束条件:;结束do:#R.J.马塔尔2010年12月15日