#include <float.h>
#include <limits.h>
#include <math.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <time.h>

// 内部定数
#define D_CHAR_MAX		4005									// 最大文字数
#define D_CHAR_KIND		3										// 文字種類数
#define D_CHAR_SUM		3										// 文字合計

// 内部変数
static FILE *szpFpI;											// 入力
static char sc1Str[D_CHAR_MAX];									// 文字列
static int siLen;												// 文字列長
static int si2CCnt[D_CHAR_MAX][D_CHAR_KIND];					// 文字数

// 内部変数 - テスト用
#ifdef D_TEST
	static int siRes;
	static FILE *szpFpA;
	static int siTNo;
#endif

// １行出力
int
fOutLine(
	char *pcpLine				// <I> １行
)
{
	char lc1Buf[1024];

#ifdef D_TEST
	lc1Buf[0] = '\0';
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, pcpLine)) {
		siRes = -1;
	}
#else
	printf("%s", pcpLine);
#endif

	return 0;
}

// 実行メイン
int
fMain(
)
{
	int i, j;
	char lc1Buf[1024];

	// 文字列長 - 取得
	fgets(lc1Buf, sizeof(lc1Buf), szpFpI);
	sscanf(lc1Buf, "%d", &siLen);

	// 文字列 - 取得
	fgets(sc1Str, sizeof(sc1Str), szpFpI);

	// 数値化
	for (i = 0; i < siLen; i++) {
		switch (sc1Str[i]) {
			case 'R':	sc1Str[i] = 0;		break;
			case 'G':	sc1Str[i] = 1;		break;
			case 'B':	sc1Str[i] = 2;		break;
		}
	}

	// 文字数 - セット
	int li1CCnt[D_CHAR_KIND];
	memset(li1CCnt, 0, sizeof(li1CCnt));
	for (i = siLen - 1; i >= 0; i--) {
		memcpy(si2CCnt[i], li1CCnt, sizeof(si2CCnt[0]));
		li1CCnt[sc1Str[i]]++;
	}

	// パターン数 - 取得
	long long llPCnt = 0;
	for (i = 0; i < siLen; i++) {
		for (j = i + 1; j < siLen; j++) {
			if (sc1Str[i] == sc1Str[j]) {
				continue;
			}

			// パターン数 - 加算
			int liNum = D_CHAR_SUM - sc1Str[i] - sc1Str[j];
			llPCnt += si2CCnt[j][liNum];

			// パターン数 - 減算
			int liNo = j - i + j;
			if (liNo < siLen) {
				if (sc1Str[liNo] == liNum) {
					llPCnt--;
				}
			}
		}
	}

	// 出力
	sprintf(lc1Buf, "%lld\n", llPCnt);
	fOutLine(lc1Buf);

	return 0;
}

// １回実行
int
fOne(
)
{
	int liRet;
	char lc1Buf[1024];

	// 入力 - セット
#ifdef D_TEST
	sprintf(lc1Buf, ".\\Test\\T%d.txt", siTNo);
	szpFpI = fopen(lc1Buf, "r");
	sprintf(lc1Buf, ".\\Test\\A%d.txt", siTNo);
	szpFpA = fopen(lc1Buf, "r");
	siRes = 0;
#else
	szpFpI = stdin;
#endif

	// 実行メイン
	liRet = fMain();

	// 残データ有無
#ifdef D_TEST
	lc1Buf[0] = '\0';
	fgets(lc1Buf, sizeof(lc1Buf), szpFpA);
	if (strcmp(lc1Buf, "")) {
		siRes = -1;
	}
#endif

	// テストファイルクローズ
#ifdef D_TEST
	fclose(szpFpI);
	fclose(szpFpA);
#endif

	// テスト結果
#ifdef D_TEST
	if (siRes == 0) {
		printf("OK %d\n", siTNo);
	}
	else {
		printf("NG %d\n", siTNo);
	}
#endif

	return 0;
}

// プログラム開始
int
main()
{

#ifdef D_TEST
	int i;
	for (i = D_TEST_SNO; i <= D_TEST_ENO; i++) {
		siTNo = i;
		fOne();
	}
#else
	fOne();
#endif

	return 0;
}

