login
Smallest prime equal to n^2 + m^2 with n<m.
3

%I #13 Aug 03 2014 14:01:18

%S 5,13,73,41,61,157,113,233,181,269,317,313,569,421,709,617,613,853,

%T 761,929,1117,1013,1429,1201,1301,1637,1753,1873,1741,1861,2897,2113,

%U 2689,2381,2521,3697,2969,3469,3121,3449,3617,3613,4153,4337,4729,4517,4513

%N Smallest prime equal to n^2 + m^2 with n<m.

%C All terms are congruent to 1 (mod 4). - Carmine Suriano, Mar 30 2011

%H Carmine Suriano, <a href="/A068487/b068487.txt">Table of n, a(n) for n = 1..872</a>

%p for n from 1 to 100 do m := n+1:while(not isprime(n^2+m^2)) do m := m+1; end do:a[n] := n^2+m^2:end do:q := seq(a[i],i=1..100);

%t Table[k = n + 1; While[p = n^2 + k^2; ! PrimeQ[p], k++]; p, {n, 100}] (* _T. D. Noe_, Mar 30 2011 *)

%Y Cf. A089489 (values of m).

%K nonn

%O 1,1

%A _Lekraj Beedassy_, Mar 11 2002

%E More terms from _Sascha Kurz_, Mar 17 2002