%I #16 Nov 08 2013 17:19:06
%S 5,13,29,37,41,61,109,113,397,1321,1429,1613,2113,14449,26317,246241,
%T 279073,312709,525313,4327489,7416361,29247661,47392381,107367629,
%U 536903681,1326700741,40388473189,118750098349,275415303169,415878438361,1759217765581
%N Generalized Gaussian-Mersenne primes (see below).
%H Marc Chamberland, <a href="http://www.cs.uwaterloo.ca/journals/JIS/VOL6/Chamberland/chamberland60.pdf">Binary BBP-Formulae for Logarithms and Generalized Gaussian-Mersenne Primes</a>, Journal of Integer Sequences, Vol. 6 (2003), Article 03.3.7.
%H <a href="/index/Ga#gaussians">Index entries for Gaussian integers and primes</a>
%F The numerator of the rational expression exp(2*Re(log(Phi_n((1 + i)/2)))) is prime, where Phi_n is the n-th cyclotomic polynomial. See A088962 for the values of n that generate primes.
%t lst = {}; Do[s = Numerator@FullSimplify@Exp[2*Re@Log@Cyclotomic[n, (1 + I)/2]]; If[PrimeQ[s] && ! MemberQ[lst, s], AppendTo[lst, s]], {n, 2^7}]; Take[Sort[lst], 31]
%Y Supersequence of A182300 (Gaussian-Mersenne primes). Cf. A088962, A057429.
%K nonn
%O 1,1
%A _Arkadiusz Wesolowski_, May 07 2012