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[n=m-j]=[d[n],k+1].max};m.prime?&&k>0&&r+=k;m-=1} p d.max+r