{
	a = vector(3321);
	for (n=1, #a,
		if (n==1,
			a[n] = 1,
			i = 1;
			while (i < n && a[i]<=n+1,
				a[n] = a[n] + 2^(n+1-a[i]);
				i = i+1
			)
		);
		print (n" "a[n])
	)
}