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