%I #11 Aug 14 2022 10:20:10
%S 2,3,4,19,25,61,100,143,144,159,304,1973,4433,4921,6076,12876,16895,
%T 30180
%N Numbers k such that k * (1+i)^k - i is a Gaussian prime.
%H <a href="/index/Ga#gaussians">Index entries for Gaussian integers and primes</a>
%t Do[ If[ PrimeQ[ n * (1 + I)^n - I], Print[n] ], {n, 1, 35000} ]
%t Select[Range[31000],PrimeQ[# (1+I)^#-I]&] (* _Harvey P. Dale_, Mar 06 2018 *)
%K nonn
%O 1,1
%A _Robert G. Wilson v_, Jan 02 2001