A075752 210*n -/+ 17 ares both primes.

1, 3, 4, 7, 8, 9, 22, 26, 32, 42, 45, 46, 52, 56, 57, 58, 62, 70, 75, 79, 81, 84, 86, 87, 96, 99, 100, 101, 103, 111, 129, 139, 142, 143, 146, 166, 178, 179, 185, 191, 196, 200, 201, 202, 216, 217, 234, 235, 240, 241, 252, 253, 260, 265, 267, 276, 294, 295, 298

Offset

1,2

Links

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

Example

n=1: 210*1-17=193 and 210*1+17=227 are primes.

Mathematica

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

Prog

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

Crossrefs

Sequence in context: A363751 A129142 A359749 * A046541 A324470 A219897

Adjacent sequences: A075749 A075750 A075751 * A075753 A075754 A075755

Keyword

easy,nonn

Author

Zak Seidov, Oct 08 2002

Status

approved