%I #11 Aug 08 2023 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,96,101,
%T 113,115,117,118,121,122,123,124,125,133,142,148,163,173,176,178,182,
%U 183,185,189,190,199,205,206,208,223,226,232,239,240,251,253,255,263
%N Numbers k such that prime(k) - pi(k) is a prime.
%H Harry J. Smith, <a href="/A065046/b065046.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[300], PrimeQ[Prime[ # ] - PrimePi[ # ]] & ].
%o (PARI) { n=0; for (m=1, 10^9, if (isprime(prime(m) - primepi(m)), write("b065046.txt", n++, " ", m); if (n==1000, return)) ) } \\ _Harry J. Smith_, Oct 04 2009
%Y Cf. A065042.
%K easy,nonn
%O 1,2
%A _Robert G. Wilson v_, Nov 05 2001