├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：运行超时|格式错误...

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

var

m,n,i,k,j,l,w,r:longint;

s,s1,s2,s3:string;

procedure check(a:longint);

begin r:=trunc(sqrt(a));

if (a=1)or(a=0) then exit;

if a=5 then begin writeln(a); exit; end;

for w:=1 to r div 2 +1 do

if a mod (2*w+1)=0

then exit;

writeln(a);

end;

begin

readln(m,n);

if n