OFFSET
1,2
MATHEMATICA
Do[ If[ PrimeQ[ n * (1 + I)^n + I], Print[n] ], {n, 1, 35000} ]
CROSSREFS
KEYWORD
nonn
AUTHOR
Robert G. Wilson v, Jan 02 2001
STATUS
approved