%I #16 Sep 08 2022 08:46:22
%S 4,8,12,14,18,32,62,66,96,120,122,140,180,202,228,740,800,810,1012,
%T 1142,1386,1496,1698,4622,5674,54892
%N Numbers k such that (2^k-2)^2-3 is prime.
%p select(k->isprime(4^k-2^(2+k)+1),[$ 1..3000]); # _Muniru A Asiru_, Jul 01 2018
%t Select[Range[3000], PrimeQ[(2^# - 2)^2 - 3] &] (* _Michael De Vlieger_, Jun 30 2018 *)
%o (PARI) is(n)=ispseudoprime((2^n-2)^2-3)
%o (Magma) [n: n in [2..750] |IsPrime((2^n - 2)^2 - 3)]; // _Vincenzo Librandi_, Jul 01 2018
%K nonn,more
%O 1,1
%A _Patrick C. Schneider_, Jun 30 2018
%E a(26) from _Giovanni Resta_, Jul 02 2018
|