|
|
A075751
|
|
Numbers n such that 210*n -/+ 13 are primes.
|
|
1
|
|
|
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
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
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
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|