{
	for (n=1, #a=vector(10 000),
		s = 0;
		forstep (k=n-1, 1, -1,
			if (issquare(s += a[k]),
				a[n]++;
			);
		);
		print (n " " a[n]);
	);
}

quit