>>603,604 Perl

$N = 14; #59;
use feature qw(say);
use List::Util qw(sum);
until (exists $h{$N}) {
$h{$N} = 1;
push @a, $N;
$k = length $N;
$N = sum map {$_ ** $k} split '', $N;
}
say join ',', @a;