1,2
Index entries for Gaussian integers and primes
Do[ If[ PrimeQ[ n * (1 + I)^n + I], Print[n] ], {n, 1, 35000} ]
Sequence in context: A091730 A058076 A033819 * A115762 A169889 A144022
Adjacent sequences: A058779 A058780 A058781 * A058783 A058784 A058785
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 02 2001