isA001358:=进程(n)返回(数量[bigomega](n)=2);结束进程:
isA109611:=过程(n)是素数(n)和(是素数)(n+2)或isA001358(n+2));结束进程:
A109611号:=proc(n)选项记忆;局部a;如果n=1,则为2;否则a:=下一素数(进程名(n-1));当不是A109611(a)时,执行a:=下一个质数(a);结束do;返回a;结束条件:;结束进程:
isA172102:=proc(n)if isprime(n)then for j from 1 do ifA118482号(j) >n则返回false;否则如果A118482号(j) =n则返回true;结束条件:;结束do;否则为假;结束条件:;结束进程:
对于从1到10000000的n,如果是A172102(n),则执行printf(“%d,\n”,n);结束条件:;结束do;(结束)
|