prob95(N)=
{
	\\ answer = 14316
	maxlen = 0;
	for(i=10,N,
		if (! isprime(i),
			x = Set([i]);
			\\ start point = i
			finished = 0;
			v = i;
			while (! finished,
				s = -1 * v;
				fordiv(v,j,
					s += j;
				);
				finished = setsearch(x,s);
				v = s;
				x = setunion(x,[v]);
				if (s > N || isprime(s), finished = 1);
			);
			if (v == i,
				l = length(x);
				if (l > maxlen,
					maxlen = l;
					print1(i);
					print1(": ");
					print(x);
				);
			);
		);
	);
}