A155153 Primes p such that 13*p^2+3*p+1 is a prime.

2, 3, 7, 11, 13, 19, 23, 37, 41, 47, 53, 73, 79, 97, 107, 163, 167, 211, 223, 227, 229, 317, 337, 347, 353, 389, 397, 419, 491, 499, 547, 569, 601, 677, 683, 727, 757, 829, 839, 941, 1051, 1117, 1151, 1163, 1181, 1201, 1217, 1367, 1399, 1409, 1427, 1433, 1453

Offset

1,1

Links

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

Example

For p=3, 13*p^2+3*p+1=127; p=73, 13*p^2+3*p+1=69497

Mathematica

Select[Prime[Range[1000]], PrimeQ[(13 #^2 + 3 # + 1)] &] (* Vincenzo Librandi, Oct 14 2012 *)

Prog

(Magma) [p: p in PrimesUpTo(1500) | IsPrime(13*p^2+3*p+1)]; // Vincenzo Librandi, Oct 14 2012

Crossrefs

Subsequence of A155152.

Sequence in context: A145673 A321657 A040116 * A014580 A197227 A091206

Adjacent sequences: A155150 A155151 A155152 * A155154 A155155 A155156

Keyword

nonn,easy

Author

Vincenzo Librandi, Jan 21 2009

Status

approved