prob119(N)=
{
	m = listcreate(1000000);
	for (i=2,1000,
		for (j=2,400,
			v = i^j;
			vStr = Vec(Strtex(v));
			s = 0;
			for (q = 1, length(vStr),
				s += eval(vStr[q]);
			);
			if (s == i,
				listput(m,v);
			);
		);
		print(i);
	);
	listsort(m);
	print (m[30]);
}