a = vector(10 000)

{
	for (n=1, #a,
		for (v=1, oo,
			a[n]=v;
			ok=1;
			s=0;
			forstep (k=n, 1, -1,
				if (issquare(s+=a[k]),
					ok=0;
					break;
				);
			);
			if (ok,
				break;
			);
		);

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

quit