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,1

Links

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

Example

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

Mathematica

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

Prog

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

Crossrefs

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

Sequence in context: A082885 A118371 A330968 * A038917 A124661 A319126

Adjacent sequences: A153588 A153589 A153590 * A153592 A153593 A153594

Keyword

nonn,easy

Author

Vincenzo Librandi, Dec 29 2008

Extensions

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

Status

approved