|
%I #22 Nov 22 2021 09:57:53
%S 0,1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,21,23,26,31,32,34,
%T 35,37,43,44,45,47,49,53,56,60,61,62,66,67,68,70,71,72,74,75,79,80,81,
%U 84,85,89,90,91,93,96,99
%N Numbers k such that k^4 + 29*k^2 + 101 is prime.
%H Robert Price, <a href="/A272074/b272074.txt">Table of n, a(n) for n = 1..2264</a>
%H Eric Weisstein's World of Mathematics, <a href="http://mathworld.wolfram.com/Prime-GeneratingPolynomial.html">Prime-Generating Polynomials</a>
%e 4 is in this sequence since 4^4 + 29*4^2 + 101 = 256+464+101 = 821 is prime.
%t Select[Range[0,100],PrimeQ[#^4+29#^2+101]&] (* _Harvey P. Dale_, Dec 15 2020 *)
%o (PARI) lista(nn) = for(n=0, nn, if(ispseudoprime(n^4+29*n^2+101), print1(n, ", "))); \\ _Altug Alkan_, Apr 19 2016
%Y Cf. A050265 - A050268, A005846, A007641, A007635, A048988, A256585.
%Y Cf. A271980, A272075.
%K nonn,less
%O 1,3
%A _Robert Price_, Apr 19 2016
|
