#include <bits/stdc++.h>
using namespace std;
#define a first
#define b second
#define pb push_back
typedef long long llo;
//#define endl '\n'

#include <vector>

llo n;
llo co=0;
llo co2=0;
vector<pair<llo,llo>> adj[100001];
llo val[100001];
void dfs(llo no,llo par=-1,llo levv=0){
	llo st=0;
	for(auto j:adj[no]){
		if(j.a!=par){
			st=1;
			dfs(j.a,no,levv^1);
		}
	}
	if(adj[no].size()==0){

		val[no]=(co^levv);
		//cout<<no<<":"<<val[no]<<endl;
		co^=1;
		co2++;
	}
}
llo dp2[100001][3][2];
llo cot[3][2];
void dfs2(llo no,llo par=-1){

	for(int i=0;i<3;i++){
		for(int k=0;k<2;k++){
			dp2[no][i][k]=0;
		}
	}
	int st=0;

	for(auto j:adj[no]){
		dfs2(j.a,no);
		for(int i=0;i<3;i++){
			for(int k=0;k<2;k++){
				cot[i][k]=1e18;
			}
		}
	//	cot[0][0]=dp2[no][0][0]+min(dp2[j.a][2][0],min(dp2[j.a][0][0],dp2[j.a][1][0]+j.b));
	//	cot[1][0]=dp2[no][1][0]+min(dp2[j.a][2][0],min(dp2[j.a][1][0],dp2[j.a][0][0]+j.b));

		//cot[0][1]=min(dp2[no][0][0]+min(dp2[j.a][2][1],min(dp2[j.a][0][1],dp2[j.a][1][1]+j.b)),dp2[no][0][1]+min(dp2[j.a][2][0],min(dp2[j.a][0][0],dp2[j.a][1][0]+j.b)));
		//cot[1][1]=min(dp2[no][1][0]+min(dp2[j.a][2][1],min(dp2[j.a][1][1],dp2[j.a][0][1]+j.b)),dp2[no][1][1]+min(dp2[j.a][2][0],min(dp2[j.a][1][0],dp2[j.a][0][0]+j.b)));
		for(int i=0;i<2;i++){
			for(int k=0;k<2;k++){
				if(i>k){
					continue;
				}
				cot[0][max(i,k)]=min(cot[0][max(i,k)],dp2[no][0][i]+min(dp2[j.a][0][k],min(dp2[j.a][1][k]+j.b,dp2[j.a][2][k])));
				cot[1][max(i,k)]=min(cot[1][max(i,k)],dp2[no][1][i]+min(dp2[j.a][1][k],min(dp2[j.a][0][k]+j.b,dp2[j.a][2][k])));
				cot[2][max(i,k)]=min(cot[2][max(i,k)],dp2[no][2][i]+min(dp2[j.a][2][k],min(dp2[j.a][1][k],dp2[j.a][0][k])+j.b));
			}
		}
	/*	cot[0][1]=dp2[no][0][0]+min(dp2[j.a][2][1],min(dp2[j.a][0][1],dp2[j.a][1][1]+j.b));
		cot[1][1]=dp2[no][1][0]+min(dp2[j.a][2][1],min(dp2[j.a][1][1],dp2[j.a][0][1]+j.b));

		cot[2][0]=dp2[no][2][0]+min(dp2[j.a][0][0]+j.b,min(dp2[j.a][1][0]+j.b,dp2[j.a][2][0]));
		llo aa=min(dp2[j.a][0][0]+j.b,min(dp2[j.a][1][0]+j.b,dp2[j.a][2][0]));
		llo bb=min(dp2[j.a][0][1]+j.b,min(dp2[j.a][1][1]+j.b,dp2[j.a][2][1]));

		cot[2][1]=min(dp2[no][2][0]+bb,aa+dp2[no][2][1]);*/
		for(int i=0;i<3;i++){
			for(int k=0;k<2;k++){
				dp2[no][i][k]=cot[i][k];
			}
		}
		st=1;
		
	}

	if(st==0){
		dp2[no][val[no]][0]=1e16;
		dp2[no][1-val[no]][1]=1e16;
		dp2[no][2][0]=1e16;
		dp2[no][2][1]=1e16;
	}
	else{
	//	cout<<no<<":"<<dp2[no][0]<<":"<<dp2[no][1]<<endl;
	}
}


/*void dfs3(int no,int par=-1){
	dp[no][0]=0;
	dp[no][1]=0;
	int st=0;

	for(auto j:adj[no]){
		if(j.a!=par){
			dfs3(j.a,no);
			dp[no][0]+=min(dp[j.a][0],dp[j.a][1]+j.b);
			dp[no][1]+=min(dp[j.a][1],dp[j.a][0]+j.b);
			st=1;
		}
	}

	if(st==0){
		dp[no][val[no]]=1e16;
	}
	else{
	//	cout<<no<<":"<<dp[no][0]<<":"<<dp[no][1]<<endl;
	}
}*/
long long place_police(vector<int> pp, vector<long long> aa, vector<long long> bb){
	n=pp.size()+1;
	for(llo i=0;i<pp.size();i++){
		adj[pp[i]].pb({i+1,aa[i]});
	}
	dfs(0);
	dfs2(0);
	/*return min(min(dp[0][0],dp[0][1]),dp[0][2]);
	if(n==50311){
		while(true){
			continue;
		}
	}*/
	llo ans=1e18;
	for(int i=0;i<3;i++){
		for(int j=0;j<co+1;j++){
			ans=min(ans,dp2[0][i][j]);
		}
	}
	if(co==1){
		ans+=(llo)1e12;
	}
	return ans;
/*	if(co==1){
		dfs2(0);
		//cout<<no<<":"<<endl;
		

	}
	else{
		dfs2(0);
		//dfs3(0);
		return min(dp2[0][2][0],min(dp2[0][0][0],dp2[0][1][0]));
	}
    return 0;*/
}