A075751 Numbers n such that 210*n -/+ 13 are primes.

1, 3, 4, 8, 10, 14, 15, 16, 17, 18, 21, 27, 36, 41, 45, 47, 48, 50, 62, 67, 71, 83, 85, 94, 95, 96, 102, 105, 106, 118, 125, 129, 133, 136, 153, 154, 155, 157, 159, 160, 171, 176, 201, 202, 205, 212, 214, 231, 237, 246, 254, 258, 259, 263, 269, 270, 271, 276, 278

Offset

1,2

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Example

n=1: 210*1-13=197 and 210*1+13=223 are primes.

Mathematica

Select[Range[1, 300], PrimeQ[210 # - 13]&&PrimeQ[210 # + 13]&] (* Vincenzo Librandi, Oct 05 2013 *)

Prog

(PARI) isok(n) = isprime(210*n+13) && isprime(210*n-13); \\ Michel Marcus, Oct 03 2013
(Magma) [n: n in [1..350] | IsPrime(210*n-13) and IsPrime(210*n+13)]; // Vincenzo Librandi, Oct 05 2013

Crossrefs

Sequence in context: A024514 A114913 A111174 * A065153 A030497 A080085

Adjacent sequences: A075748 A075749 A075750 * A075752 A075753 A075754

Keyword

easy,nonn

Author

Zak Seidov, Oct 08 2002

Status

approved