%I#8 2022年1月17日13:45:59

%S 5,11,31,59,71,8917918119119922925126931331379389401419，

%电话：421449499509521599619631641661691709719751829839859，

%电话：88191192997199110211039104910611109117111811259127911291130113211409143914891499

%N素数为正方形（mod 55）。

%C5、11和所有与1、4、9、14、16、26、31、34、36或49（模55）同余的素数_罗伯特·伊斯雷尔，2016年1月15日

%p S55:={seq（x^2模式55，x=0..27）}：

%p选择（t->成员（t mod 55，S55），[seq（ithprime（i），i=1..1000）]）；#_罗伯特·伊斯雷尔，2016年1月15日

%t连接[{5,11}，选择[Prime[Range[250]]，成员Q[{1,4,9,14,16,26,31,34,36,49}，Mod[#，55]]&]]（*哈维·P·戴尔，2022年1月17日*）

%o（PARI）select（p->issquare（Mod（p，55））&&isprime（p），[1..1500]）\\只在素数中进行选择会更有效，用素数（[11500）替换[1.1500]，在这种情况下，可以从选择函数中省略isprime）条件。但我们想在select（）的第一个参数中提供一个通用的有效特征函数_M.F.Hasler，2016年1月15日

%Y参考A106904和相邻序列。

%Y参考A191036。

%K nonn公司

%O 1,1号机组

%A _M.F.Hasler_，2016年1月15日