1,1

Index entries for Gaussian integers and primes

Do[ If[ PrimeQ[ n * (1 + I)^n - I], Print[n] ], {n, 1, 35000} ]

Sequence in context: A123702 A067805 A092837 this_sequence A012285 A012281 A098503

Adjacent sequences: A058769 A058770 A058771 this_sequence A058773 A058774 A058775

nonn

Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 02 2001