A065042 - OEIS

%I #13 Jun 18 2018 03:35:20

%S 1,3,8,13,15,16,20,39,45,53,62,65,71,72,80,82,90,91,92,95,113,115,117,

%T 118,119,121,143,145,147,153,156,164,166,177,181,186,189,190,195,196,

%U 202,203,224,254,255,265,268,273,294,296,319,322,323,328,329,338,343

%N Numbers k such that prime(k) + pi(k) is a prime.

%H Harry J. Smith, <a href="/A065042/b065042.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[ Range[400], PrimeQ[ Prime[ # ] + PrimePi[ # ]] & ]

%o (PARI) { n=0; for (m=1, 10^9, if (isprime(prime(m) + primepi(m)), write("b065042.txt", n++, " ", m); if (n==1000, return)) ) } \\ _Harry J. Smith_, Oct 04 2009

%Y Cf. A100486, A100917.

%K nonn

%O 1,2

%A _Robert G. Wilson v_, Nov 05 2001