%I #12 Jun 24 2018 18:30:42
%S 3,4,6,8,10,14,16,18,28,30,42,44,50,54,66,68,76,84,90,94,110,144,148,
%T 154,168,174,178,192,196,214,220,242,264,266,268,278,280,282,294,304,
%U 308,336,346,348,354,358,360,370,376,380,382,384,390,400,402,408,414
%N Numbers k such that prime(k) - k is prime.
%H Harry J. Smith, <a href="/A064269/b064269.txt">Table of n, a(n) for n = 1..1000</a>
%e n=54: prime(54) - 54 = 197, a prime.
%t Select[ Range[ 415 ], PrimeQ[ Prime[ # ] - # ] & ]
%o (PARI) j=[]; for(n=1,500, if(isprime(prime(n)-n), j=concat(j,n))); j
%o (PARI) { n=0; for (m=1, 10^9, if (isprime(prime(m) - m), write("b064269.txt", n++, " ", m); if (n==1000, break)) ) } \\ _Harry J. Smith_, Sep 10 2009
%Y Cf. A014689, A064270.
%K easy,nonn
%O 1,1
%A _Jason Earls_, Sep 23 2001
|