{
	a = vector(M=10 000);		\\ A283682 flattened
	a[1] = 0;					\\ seed
	a[2] = 1;					\\  ''

	m = 0;
	for (d=1, M,
		s = 0;

		forstep (k=d, 1, -1,
			n = d+1-k;

			s += v = a[n] + a[k];

			if (m++<=#a,
				a[m] = v;
			);
		);

		print (d " " s);
	);
}

quit