A153591 Primes p such that 6p^2+6p+1 is also prime.

2, 3, 5, 7, 13, 19, 23, 31, 41, 43, 47, 67, 73, 97, 101, 107, 109, 137, 151, 199, 233, 239, 241, 251, 263, 283, 317, 331, 337, 353, 359, 379, 383, 419, 421, 431, 439, 449, 463, 541, 569, 571, 577, 601, 619, 647, 691, 701, 769, 823, 839, 877, 907, 929, 953, 971

Offset: 1

Author

Vincenzo Librandi, Dec 29 2008

Keywords

• nonn
• easy

Examples

			For p = 2, 6p^2+6p+1 = 37 is prime; for p = 47, 6p^2+6p+1 = 13537 is prime.
		

Links

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

Crossrefs

Cf. A007693 (n and 6n+1 are primes), A153812 (primes p such that 6*p^2+1 is also prime).

Programs

Magma

[ p: p in PrimesUpTo(1000) | IsPrime(6*p^2+6*p+1) ];

Mathematica

Select[Prime[Range[200]], PrimeQ[6#^2 + 6# + 1] &] (* Vincenzo Librandi, Oct 15 2012 *)

Extensions

Edited and extended beyond a(20) by Klaus Brockhaus, Jan 01 2009