#!/usr/bin/perl;

my $onecount = 0;
my $i = 0;
my $j;
my $jlen;
my $ilen;
my $findnum = 2;
my $findcount = 0;
while(true)
{
	$i++;
	$j = $i;
	$ilen = length($i);
	$j =~ s/1//g;	
	$jlen = length($j);

	$onecount += $ilen - $jlen;

	print "$i\t\t$jlen\t\t$onecount\n";
	if($i == $onecount) {
		$findcount++;
		if($findcount == $findnum){
			exit;
		}
	}
}