-module(a).
-export([m/0]).
m()->[io:format("~p,~p~n",[N,N+2])||N<-lists:seq(3,2000),lists:all(fun(X)->N*(N+2)rem X>0end,lists:seq(2,N-1))].