EXTENSIONS
More terms from _Reiner Martin (reinermartin(AT)hotmail.com), _, Jul 20 2001
The OEIS is supported by the many generous donors to the OEIS Foundation.
More terms from _Reiner Martin (reinermartin(AT)hotmail.com), _, Jul 20 2001
proposed
approved
editing
proposed
m = 32; Length /@ Split[Sort[Select[Flatten[Table[{a^2 + b^2, a + b*I}, {a, -m, m}, {b, -m, m}], 1], PrimeQ[#[[2]], GaussianIntegers -> True] & ]], #1[[1]] == #2[[1]] & ][[1 ;; 87]] (* Jean-François Alcover, Apr 8 08 2011 *)
approved
editing
m = 32; Length /@ Split[Sort[Select[Flatten[Table[{a^2 + b^2, a + b*I}, {a, -m, m}, {b, -m, m}], 1], PrimeQ[#[[2]], GaussianIntegers -> True] & ]], #1[[1]] == #2[[1]] & ][[1 ;; 87]] (* From _Jean-François Alcover, _, Apr 8 2011 *)
_N. J. A. Sloane (njas(AT)research.att.com), _, Jun 09 2000
m = 32; Length /@ Split[Sort[Select[Flatten[Table[{a^2 + b^2, a + b*I}, {a, -m, m}, {b, -m, m}], 1], PrimeQ[#[[2]], GaussianIntegers -> True] & ]], #1[[1]] == #2[[1]] & ][[1 ;; 87]] (* From J.F. Jean-François Alcover, Apr 8 2011 *)
<a href="/Sindx_index/Ga.html#gaussians">Index entries for Gaussian integers and primes</a>
reviewed
approved
proposed
reviewed