编辑
经核准的
选择[Range[400]、AllTrue[{EulerPhi[#]+1、DivisorSigma[0，#]+1，DivisorSigma[1，#]+1}，PrimeQ]&]（*程序使用Mathematica版本10*中的AllTrue函数）(*哈维·P·戴尔2019年9月16日*）
检验过的
提出
Harry J.Smith，<a href=“/A066147号/b066147.txt“>n的表，a（n）表示n==1,...,..1000个</a>
（PARI）{n=0；对于（m=1，10^9），如果（isprime（eulerphi（m）+1）&&isprime)) ) } [发件人_)) ) } \\ _Harry J.Smith，2010年2月2日]
a（24) -)-a（58）来自哈里·史密斯，2010年2月2日
_约瑟夫·佩伊(约瑟夫_我_体育课(自动变速箱)hotmail邮件.通用域名格式),_,2001年12月12日
OEIS服务器: https://oeis.org/edit/global/2119
（PARI）{n=0；对于（m=1，10^9，if（isprime（eulerphi（m）+1）&&isprime _哈里·史密斯(哈斯米特(自动变速箱)sbc全球.网),_,2010年2月2日]
a（24）-a（58）来自 _哈里·史密斯(哈斯米特(自动变速箱)sbc全球.网),_,2010年2月2日
OEIS服务器: https://oeis.org/edit/global/133
哈里·史密斯="="/A066147号/b066147.txt“>n=1，…，1000时的n，a（n）表</a>
非n,新的
非n
1, 3, 5, 6, 10, 11, 12, 17, 22, 26, 27, 29, 38, 41, 46, 55, 59, 62, 71, 77, 82, 91, 99,101,106,107,108,118,125,126,132,137,145,146,149,150,158,178,179,191,197,202,206,209,216,217,218,227,234,239,262,269,276,278,281,287,302,305
Harry J.Smith，n表，a（n）表示n=1，。。。，1000</a>
（PARI）{n=0；对于（m=1，10^9，if（isprime（eulerphi（m）+1）&&isprime
a（24）-a（58）摘自Harry J.Smith（hjsmithh（AT）sbcglobal.net），2010年2月2日
