A049489 Primes p such that p + 32 is also prime.

5, 11, 29, 41, 47, 71, 107, 131, 149, 167, 179, 191, 197, 239, 251, 281, 317, 347, 389, 401, 431, 467, 491, 509, 569, 587, 599, 641, 659, 677, 701, 719, 797, 821, 827, 887, 977, 1019, 1031, 1061, 1091, 1097, 1181, 1217, 1259, 1289, 1367, 1427, 1439, 1451

Offset

1,1

Links

Karl V. Keller, Jr., Table of n, a(n) for n = 1..10000

Example

29 and 29 + 32 = 61 are both prime.

Maple

Primes:= select(isprime, {seq(i, i=3..10000, 2)}):
sort(convert(Primes intersect map(`-`, Primes, 32), list)); # Robert Israel, Dec 20 2015

Mathematica

Select[Range[2000], PrimeQ[#] && PrimeQ[# + 32] &] (* Vincenzo Librandi, Apr 22 2015 *)
Select[Prime[Range[300]], PrimeQ[#+32]&] (* Harvey P. Dale, Oct 14 2017 *)

Prog

(PARI) isok(n) = isprime(n) && isprime(n+32); \\ Michel Marcus, Dec 31 2013
(Magma) [[p: p in PrimesUpTo(2000) | IsPrime(p+32)]; // Vincenzo Librandi, Apr 22 2015

Crossrefs

Cf. A001359, A023200, A023202, A049488.

Sequence in context: A240103 A019345 A279067 * A242383 A141785 A144311

Adjacent sequences: A049486 A049487 A049488 * A049490 A049491 A049492

Keyword

nonn,easy

Author

Labos Elemer

Extensions

Name improved by Bruno Berselli, Apr 22 2015

Status

approved