|
%I #14 Sep 08 2022 08:46:17
%S 3508,5209,13428,15347,16339,17779,22548,37726,40408
%N Numbers k such that k^8192 + (k+1)^8192 is prime.
%C The terms correspond only to probable primes.
%H Richard Fischer, <a href="http://www.fermatquotient.com/PrimSerien/PrimPotP.txt">Primzahlen mit der Form (B+1)^N+B^N</a>.
%H Henri Lifchitz and Renaud Lifchitz, <a href="http://www.primenumbers.net/prptop/searchform.php?form=x%5E8192%2By%5E8192&action=Search">Search for: x^8192+y^8192</a>.
%t Select[Range[1, 10000], PrimeQ[#^8192 + (#+1)^8192] &]
%o (PARI) for(n=1, 10000, if(isprime(n^8192 + (n+1)^8192), print1(n, ", ")))
%o (Magma) [n: n in [1..10000] |IsPrime(n^8192 + (n+1)^8192)]
%Y Cf. A005097, A027861, A155211, A153504, A154535, A174156, A174157, A215431, A215432, A215433, A274234, A274235, A274236.
%K nonn,more
%O 1,1
%A _Tim Johannes Ohrtmann_, Jun 15 2016
|
