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

Author

Vladimir Joseph Stephan Orlovsky, Mar 10 2009

Keywords

• nonn
• easy

Links

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

Crossrefs

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

Programs

Magma

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

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 *)