|
%I #14 Jan 16 2023 08:08:08
%S 0,2,3,4,5,7,8,11,13,16,17,19,23,31,43,61,79,101,127,167,191,199,313,
%T 347,701,1709,2617,3539,5807,10501,10691,11279,12391,14479,42737,
%U 83339,95369,117239,127031,138937,141079,267017,269987,374321,986191,4031399
%N Numbers k such that (2^k + 1)/(2 - (-1)^k) is a prime.
%t Select[Range[0, 10^3], PrimeQ[(2^# + 1)/(2 - (-1)^#)] &] (* _Michael De Vlieger_, Dec 25 2016 *)
%Y Cf. A000978, A019434.
%K nonn
%O 1,2
%A _Thomas Ordowski_, Dec 25 2016
|
