%I#13 2020年4月6日03:11:12

%S 1,1254010241072107210921320140842721620029568400824374056592，

%电话：1231922517362654402760006643207257607585607712642101248，

%电话：3195192659270472430507464960875568010555021171584014135296199527302005872021672288

%N对k进行编号，使φ（素数（k）-1）==0（mod k）。

%t选择[Range[42000]，Mod[EulerPhi[Prime[#]-1]，#]==0&]

%o（PARI）用于（k=12600000，如果（eulerphi（质数（k）-1）%k==0，print1（k，“，”））

%Y参考A000010、A006093、A008330。

%K nonn公司

%O 1,2号机组

%2002年2月5日，A _贝尼特·克洛伊特

%E更多来自Klaus Brockhaus的条款，2002年2月13日

%E更多条款，来自王金源，2020年4月5日