%I#11 2023年8月8日19:31:52
%S 1,2,3,4,7,9,14,15,16,19,22,30,38,44,55,64,79,81,90,91,93,94,96101,
%电话:113115117118121122123124125133142148163173176178182,
%电话:1831851891901992052062082232232239240251253255263
%数k,使素数(k)-pi(k)是素数。
%H Harry J.Smith,n表,n=1..1000的a(n)</a>
%t选择[Range[300],PrimeQ[Prime[#]-PrimePi[#]]&]。
%o(PARI){n=0;对于(m=1,10^9,如果(isprime(prime(m)-primepi(m))),写(“b065046.txt”,n++,“”,m);如果(n==1000,return))}\\哈里·史密斯,2009年10月4日
%Y参考A065042。
%K容易,不是
%O 1,2号机组
%A _Robert G.Wilson v_,2001年11月5日
|