#!/usr/bin/perl

$|=1;$N=shift||100;$M=int(3.3*$N)
;$t[0]=2;$s[0]=2;sub z{$a=$r=00};
for(                         $k=1
;$k<$M   ;$k++){$a=$r=0;   };for(
$k=01;   $k<$M;$k++){&z;   for($i
=$N;$i   >=0;$i--){$a=$t   [$i]*(
$k)+$r   ;$t[$i]=int($a%   10);${
r}=int   ($a/10);}$K=($k   <<1)+1
;&{z};   map{$a=$t[$_]+(   10)*((
$r));;   ${t}[$_]=int($a   /($K))
;${r}=   int(($a)%($K))}   (0..$N
);if((   $r>=(int(($K)/2   )))){;
;;${t}   [$N]++}while($t   [$N]>9
){${t}   [$N]-=10;;$t[$N   -1]++}
&z();   for($i=$N;$i>=0   ;$i--){
$a=    ($t[$i]+$s[$i]+   $r);${s}
[$i]=int($a%10);$r=int($a/10)}if(
$k>$x+3){${x}=$k;;print"$s[$y++]"
;};}for($y..${N}){print"$s[$_]";}