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
2022.12.04 Sunday (c) All rights reserved by ACHK