for(j in 1:200){
for(i in 1:200){
   A=dif(d,i,1)
     if(as.numeric(A)==2) break
      else next
}
J[i,1]=j=i
}