1,1

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);

Adjacent sequences: A068484 A068485 A068486 this_sequence A068488 A068489 A068490

Sequence in context: A018678 A093118 A087506 this_sequence A075063 A100209 A139361

nonn

Lekraj Beedassy (blekraj(AT)yahoo.com), Mar 11 2002

More terms from Sascha Kurz (sascha.kurz(AT)uni-bayreuth.de), Mar 17 2002