N,K=gets.split.map(&:to_i)
as=gets.split.map{|e|e.to_i-1}
cus=Array.new(N+1,0)
N.times do |i|
    cus[i+1]=(cus[i]+as[i])%K
end
dat=Hash.new(0)
res=0
(N+1).times do |i|
    if i<K
        res+=dat[cus[i]]
        dat[cus[i]]+=1
    else
        dat[cus[i-K]]-=1
        res+=dat[cus[i]]
        dat[cus[i]]+=1
    end
end
puts res