|
%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
|
