Euler problem 10.4

.

programmainimplicitnoneinteger :: p_max, p_count, i, j integer(kind = 16) :: p_sum logical, ALLOCATABLE, DIMENSION(:) :: is_prime p_max=2000000ALLOCATE(is_prime(p_max)) is_prime=.true.is_prime(1)=.false.doi=2,ceiling(sqrt(real(p_max)))if(is_prime(i))thendoj=i*i, p_max, i is_prime(j)=.false.end doend ifend dop_count=0 p_sum=0doi=1, p_maxif(is_prime(i))thenp_count=p_count+1 p_sum=p_sum+iend ifend doprint*, "p_count == ", p_count print*, "p_sum == ", p_sumDEALLOCATE(is_prime)end programmain

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