检验过的
经核准的
提出
编辑
（PARI）{my（a=List（））；对于（m=0，精度（.）-3，my（pi=pi\.1^m，p）；对于\\M.F.哈斯勒2021年5月10日
M.F.哈斯勒：（忍不住要添加一个替代版本，使用这个想法和listput（）而不是print（）。）
（PARI）{my（PI=数字（PI\.1^30），seen=[]）；对于（i=1，#PI-1，对于（j=1，i，my（p=来自数字（PI[j.i]））；如果 (!i素数（p）&& !|| setsearch（参见，p）, || 打印1（p“，”）; || seen=集合联合（seen，设置([第页))])))} \\已更新 已编辑 到使用 当前PARI语法安德鲁·霍罗伊德, 和 _M（M）. F类. 哈斯勒_, 2021年5月10日
M.F.哈斯勒：Andrew，感谢您对当前语法的更新，我添加了适当的学分（并进行了小编辑，以减少后缀“）”，以提高可读性）。我想主要的问题是“&”变成了“&&”，除此之外，集合已经改变了（元素不再是字符串）。但序列的数据是正确的，并通过更新的代码进行了确认。（可能会“改进”（？）：PI可以在“i”循环中定义为所需的长度，并由数字（PI[j.i]）替换为PI%10^j，但无论如何，我认为它不是一个非常有用的序列。）
（PARI）{my（PI=数字（PI*10\.1^30\1)，见=[]）；对于（i=1，#PI-1，对于（j=1，i，my（p=来自数字（PI[j.i]）））；if（i质数（p）&&！setsearch（seen，p），打印1（p, ", "); seen=集合联合（seen， 集合（p）））｝ \\ 已更新 到 现在的 帕里 语法 通过 _安得烈 霍罗伊德_, 五月 10 2021
阿洛伊斯·海因茨：您可以随时联系M.F.Hasler。。。
米歇尔·马库斯：他在A098044上；我叫他过来
M.F.哈斯勒：你好。。。是的，对不起，原来的程序缺少pi的定义，“显然”（对不起，仅对作者而言，并且给定“eval（concat（…）”）是一个由1个字符字符串组成的向量。今天我还将使用数字、fromdigits和[i…j]。我马上回来。
M.F.哈斯勒：Felix，{31415，1415，415，15}肯定不是质数，或者我缺少s.th了。？
囊性纤维变性。A000796号, A005042号, A047658号.
