%I#23 2015年6月13日14:41:04
%第19、37、971571992229271307337379577601661727811829877937页,
%电话:99710091106911711237127912971429145915311609165720292089,
%电话:2137217922212812467253925512557261727192791285130373061109
%N素数p使得p+phi(p)+mu(phi(p))也是素数。
%C对于这些项,μ(φ(p))必须为零。
%C对于素数p,φ(p)=p-1,所以项是素数p使得2p-1也是素数(A005382),而p-1不是平方自由的_延斯·克鲁斯·安徒生,2014年7月19日
%H Jens Kruse Andersen,n的表,n的a(n)=1..10000</a>
%e a(1)=19,因为19+18+0是素数。
%e a(2)=37,因为37+36+0是素数。
%e a(3)=97,因为97+96+0是素数。
%p with(numtheory):A244111:=n->`if`(isprime(n+phi(n)+mobius(phi(n)))和isprim(n),n,NULL);seq(A244111(n),n=1..5000);#_韦斯利·伊万·赫特,2014年7月19日
%t apQ[n_]:=模块[{p=EulerPhi[n]},PrimeQ[n+p+MoebiusMu[p]];选择[Prime[Range[500]],apQ](*_哈维·P·戴尔,2015年6月13日*)
%o(PARI)isok(n)=i素数(n)&&i素数_Michel Marcus,2014年6月21日
%Y参考A000010、A005382、A008683。
%K nonn公司
%O 1,1号机组
%2014年6月20日,A _Torlach Rush
%E 2014年6月21日,来自米歇尔·马库斯的更多条款
|