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
KEYWORD
nonn,easy
AUTHOR
EXTENSIONS
Name improved by Bruno Berselli, Apr 22 2015
STATUS
approved