program ed;</br>
const m=255;</br> r=4900;</br>
var mn:set of 0..9;</br>
type tset=set of 0..(m-1);</br>
tarr= array[0..(r div m)] of mn;</br>
var a:tarr;</br>
n,k,i,j,s:word;</br>
Begin
for n:=0 to (r div m) do a[n]:=[];</br>
for n:=0 to 70 do
for k:=0 to 70 do begin
s:=sqr(n)+2*sqr(k);</br>
if (s div m) <= (r div m) then
a[s div m]:=a[s div m]-[s mod m];</br>
end;</br>
for i:=0 to r do
for j:=0 to r do begin
s:=7*i*j+j+3;</br>
if (s div m) <= (r div m) then
a[s div m]-[s mod m];</br>
end;</br>
for s:=r downto 1 do
if (s mod m) in a[s div m] then
begin write(s:6);</br> readln;</br> end;</br>
readln;</br>
End.