A157976 Primes p such that 18*p + 17 is also prime.

2, 3, 5, 13, 19, 23, 37, 47, 53, 67, 79, 83, 89, 103, 109, 149, 157, 167, 193, 229, 233, 257, 263, 277, 313, 347, 349, 383, 389, 419, 439, 457, 467, 487, 499, 523, 563, 569, 593, 599, 619, 677, 719, 727, 769, 773, 823, 829, 857, 863, 877, 937, 1013, 1039, 1049

Offset

1,1

Links

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

Mathematica

q=17; lst={}; Do[p=Prime[n]; If[PrimeQ[(q+1)*p+q], AppendTo[lst, p]], {n, 6!}]; lst
Select[Prime[Range[1000]], PrimeQ[18 # + 17]&] (* Vincenzo Librandi, Feb 03 2014 *)

Prog

(Magma) [n: n in [0..1100] | IsPrime(n) and IsPrime(18*n + 17)]; // Vincenzo Librandi, Feb 03 2014

Crossrefs

Cf. A136082, A136083, A023213, A023221, A023235, A023240, A157974, A136083, A136084, A136085, A136086, A136087, A089440, A157975.

Sequence in context: A273939 A087763 A104735 * A155738 A215371 A164958

Adjacent sequences: A157973 A157974 A157975 * A157977 A157978 A157979

Keyword

nonn,easy

Author

Vladimir Joseph Stephan Orlovsky, Mar 10 2009

Status

approved