#include<bits/stdc++.h>

using namespace std;

typedef long long LL;
#define N 6200

LL n,mod,f[N][N],g[N][N],ans;

void upd(LL &x,LL y){x=(x+y)%mod;}

LL C2(LL x){return x*(x-1)%mod;}

int main(){
	scanf("%lld%lld",&n,&mod);
	f[0][0]=1;;
	for (LL i=0;i<=n*3;++i){
		upd(f[i][0],g[i][0]);
		g[i][0]=f[i][0];
		for (LL j=0;j<=n*3;++j){
			upd(f[i+3][j],C2(n*3-i-1)*f[i][j]);
			upd(f[i+2][j+1],f[i][j]*(n*3-i-1));
			if (j) upd(f[i+1][j-1],f[i][j]);
			if (j) upd(g[i+3][j],C2(n*3-i-1)*g[i][j]);
			if (j) upd(g[i+2][j-1],g[i][j]*(n*3-i-1));
			upd(g[i+1][j+1],g[i][j]);
		}
	}
	for (LL i=0;i<=n*3;++i) upd(ans,g[n*3][i]);
	printf("%lld\n",ans);
	
	return 0;
}
			