require'prime' m,n,*c=$<.read.split.map &:to_i d=[-1]*m<i||d[i-j]=[d[i-j],d[i]+1].max}}).map{|i|r+=i.prime?&&d[i]>0?d[i]:0} p r+d.max