Select Code to Download

sub sieve {
my%p=(2,2);for my$n(3..pop){grep$n==($p{$_}+=$_*($p{$_}<$n)),keys%p
or$p{$n}=$n}keys%p
...
for( @ARGV ) {
    print "$_: ",join(" ",sort{$a<=>$b}sieve($_)),$/;
}

1: 2
2: 2
3: 2 3
...
701 709 719 727 733 739 743 751 757 761 769 773 787 797 809 811 821
823 827 829 839 853 857 859 863 877 881 883 887 907 911 919 929 937
941 947 953 967 971 977 983 991 997