|
%I #14 Sep 08 2022 08:45:40
%S 0,1,2,3,5,6,7,8,14,15,16,19,20,24,27,28,34,36,37,40,41,42,44,45,47,
%T 49,57,59,62,64,66,68,71,72,73,78,84,85,86,90,96,103,105,106,110,117,
%U 119,122,124,129,132,133,136,141,150,154,156,157,163,168,169,174
%N Numbers n such that n^2+13n+23 is prime.
%H Vincenzo Librandi, <a href="/A153781/b153781.txt">Table of n, a(n) for n = 1..1000</a>
%t Select[Range[0,900], PrimeQ[#^2 + 13 # + 23] &] (* _Vincenzo Librandi_, Jul 31 2012 *)
%o (Magma) [n: n in [0..200]| IsPrime(n^2+13*n+23)]; // _Vincenzo Librandi_, Jul 31 2012
%o (PARI) is(n)=isprime(n^2+13*n+23) \\ _Charles R Greathouse IV_, May 22 2017
%Y Cf. A144561.
%K nonn,easy
%O 1,3
%A _Vincenzo Librandi_, Jan 03 2009
|
