发件人 _(帕里) A024351号=选择(第页->集合搜索(P(P),118-第页),P(P)=素数(30)[^5]) \\ 118 = 2*59, 哪里 59 是 这个 中心的 首要的; 素数(30) = 素数 < 118. 对于 这个 魔术 广场 它本身, 使用 A320872型_行(1). - _M.F.Hasler,2018年10月25日: (起点)
(PARI)A024351号=选择(p->setsearch(p,118-p),p=素数(30)[^5])\\118=2*59,中心素数;素数(30)=素数<118。
/*按顺序获得幻方:*/
对于素数(c=11,对于步长(a=2,c\3-3,2,对于步宽(b=a+2,c-2*a-3,2),vecmin(应用(i素数,S=[c-a-b,c+b,c++;c+a+a+b,c,c-a-a-b;c-a,c-b,c+a+b])和返回(S))\\(结束)