#include<bits/stdc++.h>
using namespace std;
typedef long long ll;
const int LG = 18 , N = 1e5 + 5 , M = 1e6 + 5;
int n , m , rt , d , fa[N] , dep[N] , lst[N] , vis[N] , dsu[N];
int num , tot , dfn[N] , id[N] , ans[M];
vector<int>g[N] , vc[N] , tr[N]; set<int>st[N];
struct QU{int tp , l , r , x , k;}qu[M * 5];
struct ST
{
	int st[LG][N];
	int Min(int u , int v){return dep[u] < dep[v] ? u : v;}
	void init()
	{
		for(int i = 1 ; i <= n ; i++)
			st[0][dfn[i]] = i;
		for(int i = 1 ; i < LG ; i++)
			for(int j = 1 ; j + (1 << i) - 1 <= n ; j++)
				st[i][j] = Min(st[i - 1][j] , st[i - 1][j + (1 << (i - 1))]);
	}
	int ask(int l , int r)
	{
		int t = __lg(r - l + 1);
		return Min(st[t][l] , st[t][r - (1 << t) + 1]);
	}
}stb;
int LCA(int u , int v)
{
	if(u == v)return u;
	if(dfn[u] > dfn[v])swap(u , v);
	return fa[stb.ask(dfn[u] + 1 , dfn[v])];
}
void Dfs(int u)
{
	dep[u] = dep[fa[u]] + 1;
	dfn[u] = ++num , id[num] = u;
	for(int v : g[u])
	{
		if(v == fa[u])continue ;
		Dfs(v);
	}
}
int Find(int x){return x == dsu[x] ? x : dsu[x] = Find(dsu[x]);}
void Dfs2(int u)
{
	// cerr << "  dfs " << u << "\n";
	for(int v : tr[u])
	{
		Dfs2(v);
		int fu = Find(u) , fv = Find(v);
		auto &su = st[fu] , &sv = st[fv];
		if(su.size() < sv.size())swap(su , sv);
		auto add = [&](int z)
		{
			// cerr << "\t" << z << ',' << lst[z] << " [" << vis[z] << ',' << d - dep[u] << ")\n";
			qu[++tot] = {1 , lst[z] , z , vis[z] , 1};
			qu[++tot] = {1 , lst[z] , z , d - dep[u] , -1};
			vis[z] = d - dep[u];
		};
		for(int z : sv)
		{
			auto it = su.lower_bound(z);
			// cerr << "   ins " << z << "\n";
			if(it != su.begin())
			{
				auto pr = prev(it);
				if(Find(*pr) != Find(v))
				{
					add(z); lst[z] = *pr;
				}
			}
			if(it != su.end())
			{
				auto nx = sv.upper_bound(z);
				if(nx == sv.end() || *nx > *it)
				{
					int t = *it;
					add(t); lst[t] = z;
				}
			}
			su.insert(z);
		}
		sv.clear() , dsu[fv] = fu;
	}
	// cerr << "  " << u << ' ' << Find(u) << ": {";
	// for(int z : st[Find(u)])cerr << z << ",";
	// cerr << "} ; ";
	// for(int i = 1 ; i <= n ; i++)
	// 	cerr << Find(i) << " \n"[i == n];
}
struct BIT
{
	int c[N];
	void add(int x , int v)
	{
		for(int i = x ; i <= n ; i += i & -i)
			c[i] += v;
	}
	int ask(int x)
	{
		int sum = 0;
		for(int i = x; i ; i -= i & -i)
			sum += c[i];
		return sum;
	}
}bit;
void Calc(int l , int r)
{
	if(l == r)return ;
	int mid = (l + r) >> 1;
	Calc(l , mid);
	Calc(mid + 1 , r);
	for(int i = l , j = mid + 1 ; i <= mid + 1 ; i++)
	{
		for(; j <= r && (i > mid || qu[j].l > qu[i].l + 1) ; j++)
		{
			if(!qu[j].tp)ans[qu[j].k] += bit.ask(qu[j].r) - bit.ask(qu[j].l - 1);
		}
		if(i <= mid)
		{
			if(qu[i].tp)bit.add(qu[i].r , qu[i].k);
		}
	}
	for(int i = l ; i <= mid ; i++)
		if(qu[i].tp)bit.add(qu[i].r , -qu[i].k);
	inplace_merge(qu + l , qu + mid + 1 , qu + r + 1 , [&](const QU &a , const QU &b){return a.l == b.l ? a.tp < b.tp : a.l > b.l;});
}
int main()
{
	ios::sync_with_stdio(0);
	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]].push_back(i);
	}
	for(int i = 1 ; i <= m ; i++)
	{
		int l , r , x; cin >> l >> r >> x;
		qu[i] = {0 , l , r , x , i};
		// ans[i] = r - l + 1;
	}
	Dfs(rt);
	stb.init();
	tot = m;
	for(int i = 1 ; i <= n ; i++)
		vc[dep[i]].push_back(i);
	auto cmp = [&](int u , int v){return dfn[u] < dfn[v];};
	for(d = 1 ; d <= n ; d++)
	{
		vector<int>p = vc[d];
		if(p.empty())continue ;
		for(int u : p)
		{
			dsu[u] = u , vis[u] = lst[u] = 0;
			st[u].insert(u);
		}
		sort(p.begin() , p.end() , cmp);
		int sz = p.size();
		for(int i = 0 ; i + 1 < sz ; i++)
			p.push_back(LCA(p[i] , p[i + 1]));
		sort(p.begin() , p.end() , cmp);
		p.resize(unique(p.begin() , p.end()) - p.begin());
		// cerr << "dep = " << d << ":\n";
		sz = p.size();
		for(int i = 1 ; i < sz ; i++)
			tr[LCA(p[i - 1] , p[i])].push_back(p[i]);
		for(int u : p)dsu[u] = u;
		Dfs2(p[0]);
		for(int z : vc[d])
		{
			// cerr << "\t" << z << ',' << lst[z] << " [" << vis[z] << ',' << d << ")\n";
			qu[++tot] = {1 , lst[z] , z , vis[z] , 1};
			qu[++tot] = {1 , lst[z] , z , d , -1};
			vis[z] = d;
		}
		for(int u : p)tr[u].clear() , st[u].clear();
	}
	sort(qu + 1 , qu + tot + 1 , [&](const QU &a , const QU &b){return a.x == b.x ? a.tp > b.tp : a.x < b.x;});
	// for(int i = 1 ; i <= tot ; i++)
	// 	cerr << qu[i].tp << ":" << qu[i].l << ',' << qu[i].r << ' ' << qu[i].x << " ; " << qu[i].k << "\n";
	// Calc(1 , tot);
	for(int i = 1 ; i <= tot ; i++)
	{
		if(!qu[i].tp)for(int j = 1 ; j < i ; j++)
			if(qu[j].tp && qu[j].l < qu[i].l && qu[i].l <= qu[j].r && qu[j].r <= qu[i].r)
				ans[qu[i].k] += qu[j].k;
	}
	for(int i = 1 ; i <= m ; i++)
		cout << ans[i] << "\n";
	return 0;
}