#include <bits/stdc++.h>
using namespace std;
#define pb push_back

const int N=1e5+5,M=1e6+5;
int n,m,dfn[N],top[N],idx=0,dwn[N],sz[N],son[N],fa[N],dep[N],rt,ans[M],lim;
vector<int> G[N],V[N];

struct Nod{
  int l,r,tim;
};
vector<Nod> C[N];

struct chg{
  int y,l,r,v;
};
vector<chg> P[N];

struct Qry{
  int l,x,id;
};
vector<Qry> Q[N];

void dfs1(int u){
  sz[u]=1,son[u]=-1,dep[u]=dep[fa[u]]+1,lim=max(lim,dep[u]);
  for(int v:G[u]){
    dfs1(v);
    if(!~son[u]||sz[v]>sz[son[u]]) son[u]=v;
    sz[u]+=sz[v];
  }
}

void dfs2(int u,int pre){
  top[u]=pre,dfn[u]=++idx,dwn[pre]=u;
  if(~son[u]) dfs2(son[u],pre);
  for(int v:G[u]) if(v!=son[u]) dfs2(v,v);
}

void add(int x,int d){
  int id=x;
  P[id].pb({id,1,d-1,1});
  while(x){
    int p=top[x];
    
    while(C[p].size()&&C[p].back().l<=dep[x]){
      int l=C[p].back().l,r=C[p].back().r,t=C[p].back().tim;C[p].pop_back();
      if(t){
      	if(P[id].back().y==t) P[id].back().r=d-l;
        else P[id].pb({t,d-min(r,dep[x]),d-l,-1});
	  }
	  if(dep[x]<r) C[p].pb({dep[x]+1,r,t});
	}
	C[p].pb({dep[p],dep[x],id});
    
    x=fa[top[x]];
  }
}

void clean(int x){
  while(x){
    x=top[x];
    C[x]={{dep[x],dep[dwn[x]],0}};
    x=fa[x];
  }
}

void solve(int d){
  for(int i:V[d]) add(i,d);
  for(int i:V[d]) clean(i);
}

namespace SGT{
  #define mid ((l+r)>>1)
  #define lc(p) tr[p].s[0]
  #define rc(p) tr[p].s[1]
  #define lson p<<1,l,mid
  #define rson p<<1|1,mid+1,r
  
  int tot=0,rt[N<<2];
  
  struct sgt{
    int s[2],v;
  }tr[N*1000];
  queue<int> que;
  
  int nwnode(){
    int cur=0;
    if(que.size()) cur=que.front(),que.pop();
    else cur=++tot;
    tr[cur]={0,0,0};
    return cur;
  }
  
  void upd(int &p,int x,int y,int v,int l=1,int r=lim){
    if(x>y||x>r||y<l) return;
    if(!p) p=nwnode();
    if(x<=l&&y>=r) return tr[p].v+=v,void();
    if(x<=mid) upd(lc(p),x,y,v,l,mid);
    if(y>mid) upd(rc(p),x,y,v,mid+1,r);
  }
  
  int qry(int p,int x,int l=1,int r=lim){
    if(!p||x<l||x>r) return 0;
    if(l==r) return tr[p].v;
    return (x<=mid?qry(lc(p),x,l,mid):qry(rc(p),x,mid+1,r))+tr[p].v;
  }
  
  void Upd(int y,int zl,int zr,int v,int p=1,int l=1,int r=n){
    if(zl>zr||y<l||y>r) return;
	upd(rt[p],zl,zr,v);
    if(l==r) return;
    if(y<=mid) Upd(y,zl,zr,v,lson);
    else Upd(y,zl,zr,v,rson);
  }
  
  int Qry(int yl,int yr,int z,int p=1,int l=1,int r=n){
  	if(yl>yr||yl>r||yr<l) return 0;
    if(yl<=l&&yr>=r) return qry(rt[p],z);
    if(yr<=mid) return Qry(yl,yr,z,lson);
    if(yl>mid) return Qry(yl,yr,z,rson);
    return Qry(yl,yr,z,lson)+Qry(yl,yr,z,rson);
  }
}

int main(){
  freopen("1.in","r",stdin);
  freopen("1.out","w",stdout);
  
  ios::sync_with_stdio(false);cin.tie(0);cout.tie(0);
  cin>>n>>m;
  for(int i=1;i<=n;i++){
    cin>>fa[i];
    if(!fa[i]) rt=i;
    else G[fa[i]].pb(i);
  }
  dfs1(rt),dfs2(rt,rt);
  for(int i=1;i<=n;i++){
    V[dep[i]].pb(i);
    if(top[i]==i) C[i].pb({dep[i],dep[dwn[i]],0});
  }
  
//  cerr<<"out!"<<endl;
  
  for(int i=1;i<=n;i++) solve(i);
  
//  cerr<<"out? "<<clock()<<"ms.\n"<<endl;
  
  for(int i=1,l,r,x;i<=m;i++) cin>>l>>r>>x,Q[r].pb({l,x,i});
  
  int cnt=0;
  
  for(int i=1;i<=n;i++){
  	cnt+=P[i].size();
//  	cerr<<"i = "<<i<<endl;
    for(auto j:P[i]){
//      if(i>=8700) cerr<<"upd : "<<j.y<<' '<<j.l<<' '<<j.r<<" -> "<<j.v<<" -> "<<SGT::tot<<endl;
	  SGT::Upd(j.y,j.l,j.r,j.v);
    }
//	cerr<<"end : updated"<<endl;
    for(auto j:Q[i]) ans[j.id]=SGT::Qry(j.l,n,j.x);
  }
  
//  cerr<<"cnt = "<<cnt<<endl;
  
  for(int i=1;i<=m;i++) cout<<ans[i]<<'\n';
  return 0;
}