$n=<>;
for$a(0..$n){
	for$b(0..$n){
		push@c,5**$a*2**$b;
	}
}
print join$/,sort{$a<=>$b}@c;