A153135 Primes p such that 6*p - 7 is also prime.

2, 3, 5, 11, 13, 19, 23, 29, 31, 41, 43, 53, 59, 61, 71, 73, 79, 83, 101, 109, 139, 149, 163, 173, 193, 199, 211, 229, 239, 241, 251, 263, 269, 271, 313, 331, 349, 353, 379, 401, 409, 431, 433, 449, 491, 503, 521, 563, 569, 613, 631, 643, 653, 659, 683, 691, 733, 743

Offset: 1

Author

Vincenzo Librandi, Dec 21 2008

Keywords

• nonn
• easy

Links

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

Crossrefs

Cf. A153245, A153134. - Vladimir Joseph Stephan Orlovsky, Dec 23 2008

Programs

Magma

[n: n in [0..900] | IsPrime(n) and IsPrime(6*n - 7)]; // "or" [p: p in PrimesUpTo(900) | IsPrime(6*p - 7)]; // Vincenzo Librandi, Oct 20 2012

Mathematica

lst={};Do[p=Prime[n];If[PrimeQ[6*p-7],AppendTo[lst,p]],{n,6!}];lst (* Vladimir Joseph Stephan Orlovsky, Dec 23 2008 *)
Select[Prime[Range[110]],PrimeQ[6#-7]&] (* Harvey P. Dale, Oct 25 2011 *)

Extensions

Corrected by D. S. McNeil, Dec 10 2010