login
Numbers k such that k^6 + 82991 is prime.
8

%I #21 Sep 08 2022 08:45:29

%S 7980,8526,11676,18774,26754,31584,34314,34650,43134,51576,64176,

%T 65184,65730,65856,70224,71190,71316,76650,78834,79506,81564,84294,

%U 91266,92904,96096,96894,105294,110376,111090,113484,117684,118146,118566

%N Numbers k such that k^6 + 82991 is prime.

%D Ribenboim P., 1996. The Little Book of Big Primes. Springer Verlag.

%t a = {}; Do[If[PrimeQ[x^6 + 82991], AppendTo[a, x]], {x, 7978, 40000}]; a

%t Select[ Range@119000, PrimeQ[#^6 + 82991] &] (* _Robert G. Wilson v_, Jan 21 2018 *)

%o (Magma) [n: n in [0..200] | IsPrime(n^6+82991)] // _Vincenzo Librandi_, Nov 23 2010

%o (PARI) is(n)=isprime(n^6+82991) \\ _Charles R Greathouse IV_, Feb 17 2017

%Y Cf. A066386, A126894, A126895.

%K nonn

%O 1,1

%A _Artur Jasinski_, Dec 31 2006