luke22.pl

#!/usr/bin/env perl
my @res;

sub calc {
	eval join '+', map {$_**2} split //, shift;
}

for my $i (1..50) {
	my %hash, $num = calc $i;
	
	while ($num != 1 && !exists $hash{$num}) {		
		$hash{$num} = 1;
		$num = calc $num;
	}
	
	push @res, $i if $num == 1;
}

print join ',', @res;