(平价)A097977美元(n,显示=0,LIM=9)={my(P=A002110号(n) ,M);对于(i=0,LIM,i&&P*=素数(n+i));对于vec(v=向量(i,j,[1,n+i-1]),t=P/prod(j=1,#v,素数(n+i-v[j]))-n;M&&t>=M&&(v[#v]+=n+i)&&next;isprime(t)||next;M=t;显示和打印([t,i,v]),2);男}\\M.F.哈斯勒2012年1月14日
(哈斯克尔)
a097977 n=头[p|p<-dropWhile(<=n)a000040_list,
a001221(p+n)==n]