%I #19 Sep 08 2022 08:45:40

%S 1,2,3,6,7,8,11,13,14,15,19,20,22,23,24,26,34,37,39,40,41,42,44,46,47,

%T 48,51,53,57,62,63,64,66,68,73,74,75,79,88,91,94,96,97,99,102,107,111,

%U 112,116,122,133,135,144,146,152,161,162,163,165,166,167,172,180,183,184,187

%N Numbers n such that 13n^2+3n+1 is prime.

%H Vincenzo Librandi, <a href="/A155152/b155152.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Range[200],PrimeQ[13#^2+3#+1]&] (* _Harvey P. Dale_, Dec 08 2011 *)

%o (Magma) [n: n in [0..200] | IsPrime(13*n^2+3*n+1)]; // _Vincenzo Librandi_, Sep 24 2012

%o (PARI) is(n)=isprime(13*n^2+3*n+1) \\ _Charles R Greathouse IV_, May 22 2017

%Y Cf. A155153.

%K nonn,easy

%O 1,2

%A _Vincenzo Librandi_, Jan 21 2009

%E Definition corrected and terms recomputed by _Jon E. Schoenfield_ and _N. J. A. Sloane_, Jun 16 2010