|
| |
|
|
A068487
|
|
Smallest prime equal to n^2 + m^2 with n<m.
|
|
3
| |
|
|
5, 13, 73, 41, 61, 157, 113, 233, 181, 269, 317, 313, 569, 421, 709, 617, 613, 853, 761, 929, 1117, 1013, 1429, 1201, 1301, 1637, 1753, 1873, 1741, 1861, 2897, 2113, 2689, 2381, 2521, 3697, 2969, 3469, 3121, 3449, 3617, 3613, 4153, 4337, 4729, 4517, 4513
(list; graph; refs; listen; history; internal format)
|
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| All terms are congruent to 1 (mod 4). - Carmine Suriano, Mar 30 2011
|
|
|
LINKS
| Carmine Suriano, Table of n, a(n) for n = 1..872
|
|
|
MAPLE
| 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);
|
|
|
MATHEMATICA
| Table[k = n + 1; While[p = n^2 + k^2; ! PrimeQ[p], k++]; p, {n, 100}] (* T. D. Noe, Mar 30 2011 *)
|
|
|
CROSSREFS
| Cf. A089489 (values of m).
Sequence in context: A156101 A093118 A087506 * A075063 A100209 A139361
Adjacent sequences: A068484 A068485 A068486 * A068488 A068489 A068490
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Lekraj Beedassy (blekraj(AT)yahoo.com), Mar 11 2002
|
|
|
EXTENSIONS
| More terms from Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), Mar 17 2002
|
| |
|
|
