|
|
黄体脂酮素
|
（PARI）vsearch（n，v）=局部（j，s）；j=1；s=材料尺寸（v）[2]；而（j<=s&&n！=v[j]，j++）；j≤s；
{m=54；v=[]；n=1；while（n<=m，p=2；where（vsearch（p，v）||（（sum（j=1，matsize（v）[2]，v[j]）+p）%prime（n））>0，p=nextprime（p+1））；v=concat（v，p）；n++）；对于（i=1，#v，print1（sum[k=1，i，v[k]/prime（i），“，”））}改编自A073602型；米歇尔·马库斯2015年6月16日
|
