#! /usr/bin/perl -wl

use feature qw( signatures );
no warnings qw( experimental::signatures );

use List::Util qw( sum0 product reduce any );

sub gcd($a, $b) { !$b ? $a : gcd($b, $a % $b) }
sub lcm { reduce { $a * $b / gcd($a, $b) } @_ }

sub fk1($max, @A) {
    sum0 grep {
        my $x = $_;
        any {$x % $_ == 0} @A
    } 1 .. $max
}

sub fk2($max, @A) {
    sum0 map {
        (parity($_) || -1) *
        sum_every_nth($max, lcm_select($_, @A))
    } 1 .. (1<<@A)-1
}
sub sum_every_nth($max, $n) {
    int($max/$n) * int($max/$n + 1) / 2 * $n
}
sub lcm_select($sel, @A) {
    lcm @A[grep {$sel>>$_ & 1} 0..$#A]
}
sub parity { unpack "%1b*", pack "J", shift }


my @A = (3, 5, 74017, 74027, 74047, 74077);

print join ' ', 0+$_, fk1($_, @A), fk2($_, @A) while <>;