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
KEYWORD
nonn
AUTHOR
Lekraj Beedassy, Mar 11 2002
EXTENSIONS
More terms from Sascha Kurz, Mar 17 2002
STATUS
approved