%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