A103329 Numbers n such that (1+i)^n - i is a Gaussian prime.
0, 3, 4, 5, 8, 10, 16, 26, 29, 34, 73, 113, 122, 157, 178, 241, 353, 457, 997, 1042, 3041, 4562, 6434, 8506, 10141, 19378, 19882, 22426, 27529
Offset: 1
Keywords
Programs
-
Mathematica
fQ[n_] := PrimeQ[(1 + I)^n - I, GaussianIntegers -> True]; Select[ Range[0, 30000], fQ]
Extensions
a(25)-a(29) from Robert G. Wilson v, Mar 02 2011.
0 prepended by T. D. Noe, Mar 07 2011
Comments