|
%I #21 Jun 14 2021 08:09:04
%S 1,5,35,821,1079,1301,3539,16991,20087,29951
%N Numbers k such that 2^k + k^3 is prime.
%t Select[Range[0, 5000], PrimeQ[(2^# + #^3)] &] (* _Vincenzo Librandi_, Sep 29 2012 *)
%o (PARI) is(n)=ispseudoprime(2^n+n^3) \\ _Charles R Greathouse IV_, Jun 12 2017
%Y Cf. A000040, A097339.
%K nonn,more
%O 1,2
%A Harrison Brown (nanb(AT)mindspring.com), Nov 14 2000
%E a(5)-a(6) from _Erich Friedman_, Jun 15 2001
%E a(7) from _Vincenzo Librandi_, Sep 29 2012
%E a(8)-a(10) from _Michael S. Branicky_, Jun 14 2021
|
