A075979 - OEIS

%I #20 Oct 23 2024 10:49:45

%S 1,3,9,57,101,137,701,1079,1241,2439,4119,7911,9111,62979,74937,

%T 102897,117191,133583,152163

%N Numbers k such that k^5 + 2^k is prime.

%t Select[Range[10000], PrimeQ[#^5 + 2^#] &] (* _Vincenzo Librandi_, Oct 04 2012 *)

%o (PARI) for(n=1,2500,if(isprime(n^5+2^n),print1(n",")))

%K nonn,more,changed

%O 1,2

%A _Zak Seidov_, Oct 17 2002

%E More terms from _Ralf Stephan_, Mar 24 2003

%E a(11)-a(13) from _Vincenzo Librandi_, Oct 04 2012

%E a(14)-a(16) from _Michael S. Branicky_, Jul 13 2023

%E a(17)-a(19) from _Michael S. Branicky_, Oct 23 2024