#!/usr/bin/perl
use strict;
use warnings;

my($prime, $range, $count) = @ARGV;

for (1 .. $count) {
    # report the full range for a random start point
    my $start = int rand(2 ** 32 - $range);
    print join(' ', map val($start + $_), 0 .. $range - 1), "\n";
}
exit 0;

# return the $p-adic order of $n
sub val {
    my($n) = @_;
    my $val = 0;
    ++$val, $n /= $prime while 0 == $n % $prime;
    return $val;
}