A062288 Numbers k such that prime(k)+50 is also prime.
2, 5, 7, 9, 10, 15, 16, 17, 24, 26, 28, 30, 32, 35, 40, 41, 43, 49, 51, 55, 56, 60, 66, 69, 72, 76, 77, 87, 94, 98, 102, 103, 104, 108, 116, 120, 123, 124, 126, 128, 135, 137, 140, 144, 148, 154, 160, 161, 164, 166, 170, 171, 185, 190, 192, 194, 195, 201, 206, 220
Offset: 1
References
- D. M. Burton, Elementary Number Theory, Allyn and Bacon, Inc., Boston, MA, 1976, pp. 52.
Links
- Harry J. Smith, Table of n, a(n) for n = 1..1000
Crossrefs
Cf. A062284.
Programs
-
Mathematica
Select[Range[400],PrimeQ[Prime[#]+50]&] (* Harvey P. Dale, Mar 01 2011 *)
-
PARI
for(n=1,65, if(isprime(prime(n)+50),print(n)))
-
PARI
{ n=m=0; forprime (p=2, 10^5, m++; if (isprime(p + 50), write("b062288.txt", n++, " ", m); if (n==1000, break)) ) } \\ Harry J. Smith, Aug 04 2009
Extensions
More terms from Larry Reeves (larryr(AT)acm.org), Jul 05 2001
Comments