candidates = Cases[Range[10000], _?(lychrelQ@# &)];