sub number_sequence {
    my ($i, $step, $num) = @_;
    my @member = ( $i );
    # caveat emptor: does not work if $num < 1; add guard if necessary
    push @member, $i += $step while --$num;
    return join " ", @member;
}