(for n 1 2e3(= s n)(while:>(= s(sum[expt(int:+ _)2](+""s)))6)(if(< s 2)prn.n))