use strict;
use warnings;
use overload '""'=>'stringify';
sub stringify { $_[0]->() };

sub make_sub {
    my ($N) = ( my @f = sort {$a <=> $b} @_ );
    return bless sub{ for(;;$N++){ $N % $_ || return $N++ for @f }  };
}

@ARGV=(2,3,5) unless @ARGV;
@ARGV=sort @ARGV;

{
    local $"=", ";
    local $\="\n";
    print "Factors: @ARGV";

    foreach  (@ARGV) {
        my $f=make_sub($_);
        print "F($_) = @{[($f) x 25]}";
    }
    my $o=make_sub(@ARGV);
    print "R(@ARGV) = @{[($o) x 25]}";
    print "----";
}

__END__

Factors: 2, 3, 5
F(2) = 2, 4, 6, 8, 10, 12, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32, 34, 36, 38, 40, 42, 44, 46, 48, 50
F(3) = 3, 6, 9, 12, 15, 18, 21, 24, 27, 30, 33, 36, 39, 42, 45, 48, 51, 54, 57, 60, 63, 66, 69, 72, 75
F(5) = 5, 10, 15, 20, 25, 30, 35, 40, 45, 50, 55, 60, 65, 70, 75, 80, 85, 90, 95, 100, 105, 110, 115, 120, 125
R(2, 3, 5) = 2, 3, 4, 5, 6, 8, 9, 10, 12, 14, 15, 16, 18, 20, 21, 22, 24, 25, 26, 27, 28, 30, 32, 33, 34
----