#!/usr/bin/perl -w

my $ref = sym(10000);
for my $key (sort {$a <=> $b} keys %$ref) {
   printf "%-10d%d\n",$key,$ref->{$key};
}

sub sym {
	for(1..shift) {
		sub s{$_[0]==join"",reverse split//,$_[0]}
		if(&s($_)&&&s($_**2)){$s{$_}=$_**2}
	}
	\%s;
}