A316360 Numbers k such that (2^k-2)^2-3 is prime.

4, 8, 12, 14, 18, 32, 62, 66, 96, 120, 122, 140, 180, 202, 228, 740, 800, 810, 1012, 1142, 1386, 1496, 1698, 4622, 5674, 54892

Offset

1,1

Links

Table of n, a(n) for n=1..26.

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

Sequence in context: A285374 A132457 A311080 * A311081 A311082 A311083

Adjacent sequences: A316357 A316358 A316359 * A316361 A316362 A316363

Keyword

nonn,more

Author

Patrick C. Schneider, Jun 30 2018

Extensions

a(26) from Giovanni Resta, Jul 02 2018

Status

approved