A272074 Numbers k such that k^4 + 29*k^2 + 101 is prime.

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, 35, 37, 43, 44, 45, 47, 49, 53, 56, 60, 61, 62, 66, 67, 68, 70, 71, 72, 74, 75, 79, 80, 81, 84, 85, 89, 90, 91, 93, 96, 99

Offset

1,3

Links

Robert Price, Table of n, a(n) for n = 1..2264

Eric Weisstein's World of Mathematics, Prime-Generating Polynomials

Example

4 is in this sequence since 4^4 + 29*4^2 + 101 = 256+464+101 = 821 is prime.

Mathematica

Select[Range[0, 100], PrimeQ[#^4+29#^2+101]&] (* Harvey P. Dale, Dec 15 2020 *)

Prog

(PARI) lista(nn) = for(n=0, nn, if(ispseudoprime(n^4+29*n^2+101), print1(n, ", "))); \\ Altug Alkan, Apr 19 2016

Crossrefs

Cf. A050265 - A050268, A005846, A007641, A007635, A048988, A256585.

Cf. A271980, A272075.

Sequence in context: A359077 A078453 A052425 * A246097 A275776 A022465

Adjacent sequences: A272071 A272072 A272073 * A272075 A272076 A272077

Keyword

nonn,less

Author

Robert Price, Apr 19 2016

Status

approved