login
Numbers k such that k * (1+i)^k - i is a Gaussian prime.
0

%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