OFFSET
1,1
MAPLE
select(k->isprime(4^k-2^(2+k)+1), [$ 1..3000]); # Muniru A Asiru, Jul 01 2018
MATHEMATICA
Select[Range[3000], PrimeQ[(2^# - 2)^2 - 3] &] (* Michael De Vlieger, Jun 30 2018 *)
PROG
(PARI) is(n)=ispseudoprime((2^n-2)^2-3)
(Magma) [n: n in [2..750] |IsPrime((2^n - 2)^2 - 3)]; // Vincenzo Librandi, Jul 01 2018
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Patrick C. Schneider, Jun 30 2018
EXTENSIONS
a(26) from Giovanni Resta, Jul 02 2018
STATUS
approved