(PARI)a(n)=my(k=1,p=2,q=下一素数(p+1));而((大ω(p+q)!=n) ||(大Ω(p-q)!=n) ,k++;p=q;q=下一素数(p+1);k\\米歇尔·马库斯2017年7月24日
(Python)
来自sympy import factorint,nextprime
k、 p,q=1,2,3
为True时:
如果sum(factorint(q-p).values())==n,sum(阶乘(q+p).values[()])==n:
返回k
k+=1
p、 q=q,下一素数(q)#柴华武,2017年7月23日