{
	m = vector(10 000);
	a = vector(#m);	\\ A002048		Segmented numbers, or prime numbers of measurement.
	k = 0;

	for (n=1, #m,
		if (m[n]==0,
			a[k++] = n;
			z = 0;
			forstep (i=k, 1, -1,
				z+=a[i];
				if (z>#m,
						break,
					m[z]==0,
						m[z] = k
				);
			);
		);
		
		print (n " " m[n]);
	);
}

quit