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

// #define int long long

#define For(i,a,b) for(int i=(a);i<=(b);i++)
#define Rof(i,a,b) for(int i=(a);i>=(b);i--)
#define ll long long
#define ull unsigned ll
#define vi vector<int> 
#define pb push_back
#define SZ(x) ((int)x.size())
#define BG(x) (x.begin())
#define ED(x) (x.end())
#define pii pair<int,int>
#define x first
#define y second
#define MD(x) ((x)%=mod)
#define gmax(x,y) (x=max(x,y))
#define gmin(x,y) (x=min(x,y))
#define ppct __builtin_popcount
#define mkp make_pair

namespace Mine {
	#define gc() getchar()
	ll read() {
		ll x=0;bool f=0;char ch=gc();
		while(!isdigit(ch)) {if(ch=='-') f=1;ch=gc();}
		while(isdigit(ch)) x=x*10+(ch^48),ch=gc();                                                                             
		return f?-x:x;
	}
	const int N=1e5+100,M=1e6+100+2e6,Q=1e6+10,len=18;
	int n,m,ans[Q],fa[N],f[N][19],root;
	vi G[N];
	int top[N],dep[N],son[N],siz[N],dfn[N],rk[N],R[N];
	namespace T {
		void dfs1(int u) {
			f[u][0]=fa[u];
			For(i,1,len) f[u][i]=f[f[u][i-1]][i-1];
			siz[u]=1,dep[u]=dep[fa[u]]+1;
			for(int to:G[u]) {
				dfs1(to),siz[u]+=siz[to];
				if(siz[to]>siz[son[u]]) son[u]=to;
			}
		}
		int tot=0;
		void dfs2(int u,int tt) {
			top[u]=tt,dfn[u]=++tot,rk[dfn[u]]=u;
			if(son[u]) dfs2(son[u],tt);
			for(int to:G[u]) if(to!=son[u]) dfs2(to,to);
		}
		void build() {dfs1(root),dfs2(root,root);}
	}
	namespace sgt {
#define lc (u<<1)
#define rc (u<<1|1)
#define mid ((l+r)>>1)
		set<pii> tr[N<<2];
		void mdf(int ql,int qr,int val,int u=1,int l=1,int r=n) {
			// For(i,ql,qr) tr[i].insert((pii){dep[val],val});
			// return ;
			if(ql<=l && r<=qr) {
				tr[u].insert((pii){dep[val],val});
				return ;
			}
			if(ql<=mid) mdf(ql,qr,val,lc,l,mid);
			if(mid<qr) mdf(ql,qr,val,rc,mid+1,r);
		}
		int ask(int pos,int val,int u=1,int l=1,int r=n) {
			// auto it=prev(tr[pos].upper_bound((pii){dep[val],1e9}));
			// return (it->x)==dep[val];
			int ret=0;
			auto it=prev(tr[u].upper_bound((pii){dep[val],1e9}));
			if((it->x)==dep[val]) ret=it->y;
			if(l==r) return ret;
			if(pos<=mid) gmax(ret,ask(pos,val,lc,l,mid));
			else gmax(ret,ask(pos,val,rc,mid+1,r));
			return ret;
		}
		void build(int u=1,int l=1,int r=n) {
			tr[u].insert((pii){-1e9,-1e9}),tr[u].insert((pii){1e9,1e9});
			if(l==r) return ;
			build(lc,l,mid),build(rc,mid+1,r);
		}
#undef mid
#undef lc
#undef rc
	}
	namespace bit {
		int tr[N];
		void mdf(int pos,int val) {for(pos++;pos;pos&=pos-1) tr[pos]+=val;}
		int ask(int pos) {int ret=0; for(pos++;pos<N;pos+=pos&-pos) ret+=tr[pos];return ret;}
	};
	struct node {
		int l,r,d,t,id;
	} q[M];
	int tot;
	void ins(int l,int r,int d,int t) {q[++tot]={l,r,d,t,0};}
	void add(int l,int r,int dl,int dr,int a) {
		ins(l,-r,dr,a);
		if(dl) ins(l,-r,dl-1,-a);
	}
	namespace cdq {
		void solve(int ql,int qr) {
			if(ql>=qr) return ;
			int mid=(ql+qr)>>1;
			solve(ql,mid),solve(mid+1,qr);
			{
				int i=ql,j=mid+1;
				while(i<=mid && j<=qr) {
					if(q[i].l>=q[j].l) {
						if(!q[i].id) bit::mdf(q[i].d,q[i].t);
						i++;
					} else {
						if(q[j].id) ans[q[j].id]+=bit::ask(q[j].d);
						j++;
					}
				}
				while(j<=qr) {if(q[j].id) ans[q[j].id]+=bit::ask(q[j].d); j++;}
			}
			{
				int i=ql,j=mid+1;
				while(i<=mid && j<=qr) {
					if(q[i].l>=q[j].l) {
						if(!q[i].id) bit::mdf(q[i].d,-q[i].t);
						i++;
					} else j++;
				}
			}
			sort(q+ql,q+qr+1,[](node x,node y){return x.l>y.l;});
		}
	}
	int ask(int x,int col) {
		int t=x; Rof(i,len,0) if(f[x][i] && sgt::ask(dfn[f[x][i]],t)==col) x=f[x][i];
		return x;
	}
	void mdf(int x) {
		int gg=x,col=sgt::ask(dfn[x],x);
		while(x) {
			int tt=ask(x,col);
			// cout<<gg<<" "<<x<<" "<<sgt::ask(dfn[x],gg)<<" "<<tt<<endl;
			if(col) add(col,gg,dep[gg]-dep[x],dep[gg]-dep[tt],-1);
			add(gg,gg,dep[gg]-dep[x],dep[gg]-dep[tt],1);
			x=fa[tt];
			col=sgt::ask(dfn[x],gg);
		}
		x=gg;
		while(x) {
			sgt::mdf(dfn[top[x]],dfn[x],gg);
			x=fa[top[x]];
		}
	}
	void main() {
		n=read(),m=read();
		For(i,1,n) {
			fa[i]=read();
			// cout<<fa[i]<<" "<<i<<endl;
			if(fa[i]==0) root=i;
			else G[fa[i]].pb(i);
		}
		T::build();
		// For(i,1,n) cout<<dep[i]<<" ";
		// cout<<endl;
		sgt::build();
		For(i,1,m) {
			int l=read(),r=-read(),d=read();
			// vec[r].pb((pii){d,i});
			q[++tot]={l,r,d,0,i};
		}
		For(i,1,n) mdf(i);
		sort(q+1,q+1+tot,[](node x,node y) {return x.r>y.r;});
		// cout<<tot<<endl;
		// For(i,1,tot) {
			// cout<<q[i].l<<" "<<q[i].r<<" "<<q[i].d<<" "<<q[i].t<<" "<<" "<<q[i].id<<endl;
		// }
		cdq::solve(1,tot);
		For(i,1,m) {
			printf("%d\n",ans[i]);
		}
	}
}
signed main() {
	// freopen("prefix.in","r",stdin);
	// freopen("prefix.out","w",stdout);
	Mine::main();
	return 0;
}