# Why does the universe exist? 7.3

Euler problem 10.4

.

```program main

implicit none

integer :: p_max, p_count, i, j
integer(kind = 16) :: p_sum
logical, ALLOCATABLE, DIMENSION(:) :: is_prime

p_max = 2000000

ALLOCATE(is_prime(p_max))

is_prime = .true.

is_prime(1) = .false.

do i = 2, ceiling(sqrt(real(p_max)))
if (is_prime(i)) then
do j = i*i, p_max, i
is_prime(j) = .false.
end do
end if
end do

p_count = 0
p_sum = 0
do i = 1, p_max
if (is_prime(i)) then
p_count = p_count + 1
p_sum = p_sum + i
end if
end do

print *, "p_count == ", p_count
print *, "p_sum == ", p_sum

DEALLOCATE(is_prime)

end program main
```

For a universe part, which is partial in space or in time, you can ask for its cause.

But for the universe as a whole, you cannot.

If the big bang is the first cause, you cannot ask for the cause of its existence.

Asking for the cause of the existence of the universe is the same as asking for the cause of the first cause.

— Me@2012-10-15 08:33:01 AM

— Me@2022-11-27 09:09:53 PM

.

.