#!/uer/bin/perl

use strict;
use warnings;

my $w = <>;
my $d = <>;
my $ans;
for(my $i = 0; $i < $d; $i++) {
	my $ans = $w / ($d - $i)**2;
	$ans = int $ans;
	$w -= $ans;
	if($d - $i == 1) {
		print "$ans\n";
	}
}

exit;