1,1
Index entries for Gaussian integers and primes
Do[ If[ PrimeQ[ n * (1 + I)^n - 1], Print[n] ], {n, 1, 5000} ]
Adjacent sequences: A058768 A058769 A058770 this_sequence A058772 A058773 A058774
Sequence in context: A097942 A004653 A115386 this_sequence A036493 A082906 A085083
nonn
Robert G. Wilson v (rgwv(AT)rgwv.com), Jan 02 2001
Search completed in 0.002 seconds