{
	for (n = 1, #a = vector(10 000),
		if (n==1,
				a[n] = 1,

				vv = vector(n-2, k, (a[n-1]-a[k])/(n-1-k));
				f = vector(max(1, #s = Set(vv)));
				for (i = 1, #vv,
					f[setsearch(s, vv[i])]++;
				);
				a[n] = 1 + vecmax(f);
		);

		print (n " " a[n]);
	);
}

quit