%I #3 Mar 30 2012 18:55:37
%S 1,2,3,4,7,8,14,16,24,32,62,68,77,88,138,162,164,183,321,333,502,1613
%N Numbers n such that 4^n + 9i is a Gaussian Prime.
%C No more under 2000.
%t Flatten[Position[Table[PrimeQ[4^n + 9 I], {n, 1, 2000}], True]]
%K hard,nonn
%O 1,2
%A _Ed Pegg Jr_, May 29 2003