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

2, 3, 4, 19, 25, 61, 100, 143, 144, 159, 304, 1973, 4433, 4921, 6076, 12876, 16895, 30180

Offset

1,1

Links

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

Index entries for Gaussian integers and primes

Mathematica

Do[ If[ PrimeQ[ n * (1 + I)^n - I], Print[n] ], {n, 1, 35000} ]
Select[Range[31000], PrimeQ[# (1+I)^#-I]&] (* Harvey P. Dale, Mar 06 2018 *)

Crossrefs

Sequence in context: A245453 A067805 A092837 * A227941 A250259 A276105

Adjacent sequences: A058769 A058770 A058771 * A058773 A058774 A058775

Keyword

nonn

Author

Robert G. Wilson v, Jan 02 2001

Status

approved