<< problem 539 - Odd elimination | Robot Welders - problem 563 >> |
Problem 549: Divisibility of factorials
(see projecteuler.net/problem=549)
The smallest number m such that 10 divides m! is m=5.
The smallest number m such that 25 divides m! is m=10.
Let s(n) be the smallest number m such that n divides m!.
So s(10)=5 and s(25)=10`.
Let S(n) be sum{s(i)} for 2 <= i <= n.
S(100)=2012.
Find S(10^8).
My Algorithm
As always I wrote a simple function to solve the problem for small values.
The function naive(n)
returns s(n) and easily verifies that s(2) + s(3) + s(4) + ... + s(100) = 2012.
Unfortunately it way too slow to find s(10^8) in a reasonable amount of time.
(If you had enough spare time it would produce the correct result eventually).
naive(n)
computes 1! mod n, then 2! mod n, 3! mod n, ... until it finds a value result
such that result! mod n == 0.
It took me a while to realize that
s(n) = s(p^{e_p} * other) = max(s(p^{e_p}), s(other) )
In plain English: if I factorize n into its prime factors p_1, p_2, ... then I only need to find a way to compute s(p^{e_p})
where e_p is the exponent of the prime factors.
An example:
24 = 2^3 * 3^1
s(24) = s(2^3 * 3) = max(s(2^3), s(3)) = max(4, 3) = 4
Resolving the recursive structure of the formula shown above:
s(n) = max(s(p_1^{e_1}), s(p_2^{e_2}), s(p_3^{e_3}), ...)
where p_i are the prime factors of n and e_i the exponents of those prime factors.
Obviously for each prime p we have s(p^1) = p because p! is the smallest factorial which contains p and thus can be divided by p.
A modified version of the naive
algorithm is pretty fast when it comes to finding s(p^{e_p}):
instead of looking at each consecutive factorial 1!, 2!, 3!, ... I only look at each factorial that is a multiple of p:
p! mod p^{e_p}, (2p)! mod p^{e_p}, (3p)! mod p^{e_p}, ... until I find some (x * p)! mod p^{e_p} == 0.
My cache
contains only 2633 such values prime^{2 ... x} < 10^8.
Whenever the main()
function finds a prime number, then it adds its powers to the cache
.
For all composite numbers it calls getSmallestFactorial
which performs a prime factorization and returns the maximum value of any prime power encountered.
Alternative Approaches
It's possible to write faster solutions using some special properties of the Kempner function (see en.wikipedia.org/wiki/Kempner_function).
However, I wasn't aware of it and therefore didn't look it up.
Note
I'm surprised that this problem has a rating of only 10%. There are many easier problems with a higher percentage.
In my personal opinion its rating should be something like 40%.
Copying all prime numbers to a dense std::vector
gives a little speed boost (almost 3x) in getSmallestFactorial
at the cost of about 40 MByte RAM consumption.
The high execution time (about 30 seconds) combined with an increased memory usage puts my solution in the top spot of the "most expensive solutions" (as of August 2017) -
I didn't expect that when I saw the 10% rating ...
Interactive test
You can submit your own input to my program and it will be instantly processed at my server:
This is equivalent toecho 100 | ./549
Output:
Note: the original problem's input 100000000
cannot be entered
because just copying results is a soft skill reserved for idiots.
(this interactive test is still under development, computations will be aborted after one second)
My code
… was written in C++11 and can be compiled with G++, Clang++, Visual C++. You can download it, too. Or just jump to my GitHub repository.
#include <iostream>
#include <vector>
#include <unordered_map>
#include <algorithm>
// ---------- standard prime sieve from my toolbox ----------
// odd prime numbers are marked as "true" in a bitvector
std::vector<bool> sieve;
// return true, if x is a prime number
bool isPrime(unsigned int x)
{
// handle even numbers
if ((x & 1) == 0)
return x == 2;
// lookup for odd numbers
return sieve[x >> 1];
}
// find all prime numbers from 2 to size
void fillSieve(unsigned int size)
{
// store only odd numbers
const unsigned int half = (size >> 1) + 1;
// allocate memory
sieve.resize(half, true);
// 1 is not a prime number
sieve[0] = false;
// process all relevant prime factors
for (unsigned int i = 1; 2*i*i < half; i++)
// do we have a prime factor ?
if (sieve[i])
{
// mark all its multiples as false
unsigned int current = 3*i+1;
while (current < half)
{
sieve[current] = false;
current += 2*i+1;
}
}
}
// ---------- problem specific code ----------
// compute all factorials until factorial % n == 0
unsigned int naive(unsigned int n)
{
unsigned long long factorial = 1;
unsigned int result = 0;
while (factorial % n != 0)
{
result++;
factorial *= result;
factorial %= n;
}
return result;
}
// all prime numbers < 10^8
std::vector<unsigned int> primes;
// cache for i^2, i^3, i^4, ... where i is prime
std::unordered_map<unsigned int, unsigned int> cache;
// compute s(n)
unsigned int getSmallestFactorial(unsigned int n)
{
// will be the result
unsigned int best = 0;
// split off all prime factors
for (auto p : primes)
{
// p is not a prime factor of the current number ?
if (n % p != 0)
continue;
// extract the current prime factor as often as possible
// e.g. => 24 => 2^3 * 3 => primePower will be 8 and reduced = 3
unsigned int primePower = 1;
do
{
n /= p;
primePower *= p;
} while (n % p == 0);
// higher result ?
best = std::max(best, cache[primePower]);
// no further factorization possible ?
if (n == 1)
return best;
if (isPrime(n))
// s(prime) = prime
return std::max(best, n);
}
return best;
}
int main()
{
unsigned int limit = 100000000;
std::cin >> limit;
unsigned long long sum = 0;
// simple algorithm, too slow
//for (unsigned int i = 2; i <= 100; i++)
// sum += naive(i);
// and now the more sophisticated approach
// find all primes below 10^8
fillSieve(limit);
// copy those 5761455 primes to a dense array for faster access
for (unsigned int i = 2; i < limit; i++)
if (isPrime(i))
primes.push_back(i);
// find result for numbers with are powers of a single prime
for (unsigned int i = 2; i <= limit; i++)
{
if (isPrime(i))
{
// pre-compute all values of i^2, i^3, ... where i is prime and store in cache[]
unsigned long long power = i * (unsigned long long) i;
for (unsigned int exponent = 2; power <= limit; exponent++)
{
// optimized version of naive(), skip i numbers in each iteration
unsigned long long factorial = i;
unsigned int result = i;
do
{
result += i;
factorial *= result;
factorial %= power;
} while (factorial % power != 0);
cache[power] = result;
// next exponent
power *= i;
}
// s(prime) = prime
sum += i;
}
else
{
// compute s(non prime)
sum += getSmallestFactorial(i);
}
}
// and display the result
std::cout << sum << std::endl;
return 0;
}
This solution contains 26 empty lines, 38 comments and 4 preprocessor commands.
Benchmark
The correct solution to the original Project Euler problem was found in 26.8 seconds on an Intel® Core™ i7-2600K CPU @ 3.40GHz.
Peak memory usage was about 41 MByte.
(compiled for x86_64 / Linux, GCC flags: -O3 -march=native -fno-exceptions -fno-rtti -std=gnu++11 -DORIGINAL
)
See here for a comparison of all solutions.
Note: interactive tests run on a weaker (=slower) computer. Some interactive tests are compiled without -DORIGINAL
.
Changelog
August 10, 2017 submitted solution
August 10, 2017 added comments
Difficulty
Project Euler ranks this problem at 10% (out of 100%).
Links
projecteuler.net/thread=549 - the best forum on the subject (note: you have to submit the correct solution first)
Code in various languages:
Python github.com/HaochenLiu/My-Project-Euler/blob/master/549.py (written by Haochen Liu)
Python github.com/Meng-Gen/ProjectEuler/blob/master/549.py (written by Meng-Gen Tsai)
Python github.com/nayuki/Project-Euler-solutions/blob/master/python/p549.py (written by Nayuki)
Python github.com/smacke/project-euler/blob/master/python/549.py (written by Stephen Macke)
C++ github.com/evilmucedin/project-euler/blob/master/euler549/549.cpp (written by Den Raskovalov)
C++ github.com/roosephu/project-euler/blob/master/549.cpp (written by Yuping Luo)
Java github.com/nayuki/Project-Euler-solutions/blob/master/java/p549.java (written by Nayuki)
Java github.com/thrap/project-euler/blob/master/src/Java/Problem549.java (written by Magnus Solheim Thrap)
Perl github.com/shlomif/project-euler/blob/master/project-euler/549/euler-549-v2.pl (written by Shlomi Fish)
Those links are just an unordered selection of source code I found with a semi-automatic search script on Google/Bing/GitHub/whatever.
You will probably stumble upon better solutions when searching on your own.
Maybe not all linked resources produce the correct result and/or exceed time/memory limits.
Heatmap
Please click on a problem's number to open my solution to that problem:
green | solutions solve the original Project Euler problem and have a perfect score of 100% at Hackerrank, too | |
yellow | solutions score less than 100% at Hackerrank (but still solve the original problem easily) | |
gray | problems are already solved but I haven't published my solution yet | |
blue | solutions are relevant for Project Euler only: there wasn't a Hackerrank version of it (at the time I solved it) or it differed too much | |
orange | problems are solved but exceed the time limit of one minute or the memory limit of 256 MByte | |
red | problems are not solved yet but I wrote a simulation to approximate the result or verified at least the given example - usually I sketched a few ideas, too | |
black | problems are solved but access to the solution is blocked for a few days until the next problem is published | |
[new] | the flashing problem is the one I solved most recently |
I stopped working on Project Euler problems around the time they released 617.
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | 9 | 10 | 11 | 12 | 13 | 14 | 15 | 16 | 17 | 18 | 19 | 20 | 21 | 22 | 23 | 24 | 25 |
26 | 27 | 28 | 29 | 30 | 31 | 32 | 33 | 34 | 35 | 36 | 37 | 38 | 39 | 40 | 41 | 42 | 43 | 44 | 45 | 46 | 47 | 48 | 49 | 50 |
51 | 52 | 53 | 54 | 55 | 56 | 57 | 58 | 59 | 60 | 61 | 62 | 63 | 64 | 65 | 66 | 67 | 68 | 69 | 70 | 71 | 72 | 73 | 74 | 75 |
76 | 77 | 78 | 79 | 80 | 81 | 82 | 83 | 84 | 85 | 86 | 87 | 88 | 89 | 90 | 91 | 92 | 93 | 94 | 95 | 96 | 97 | 98 | 99 | 100 |
101 | 102 | 103 | 104 | 105 | 106 | 107 | 108 | 109 | 110 | 111 | 112 | 113 | 114 | 115 | 116 | 117 | 118 | 119 | 120 | 121 | 122 | 123 | 124 | 125 |
126 | 127 | 128 | 129 | 130 | 131 | 132 | 133 | 134 | 135 | 136 | 137 | 138 | 139 | 140 | 141 | 142 | 143 | 144 | 145 | 146 | 147 | 148 | 149 | 150 |
151 | 152 | 153 | 154 | 155 | 156 | 157 | 158 | 159 | 160 | 161 | 162 | 163 | 164 | 165 | 166 | 167 | 168 | 169 | 170 | 171 | 172 | 173 | 174 | 175 |
176 | 177 | 178 | 179 | 180 | 181 | 182 | 183 | 184 | 185 | 186 | 187 | 188 | 189 | 190 | 191 | 192 | 193 | 194 | 195 | 196 | 197 | 198 | 199 | 200 |
201 | 202 | 203 | 204 | 205 | 206 | 207 | 208 | 209 | 210 | 211 | 212 | 213 | 214 | 215 | 216 | 217 | 218 | 219 | 220 | 221 | 222 | 223 | 224 | 225 |
226 | 227 | 228 | 229 | 230 | 231 | 232 | 233 | 234 | 235 | 236 | 237 | 238 | 239 | 240 | 241 | 242 | 243 | 244 | 245 | 246 | 247 | 248 | 249 | 250 |
251 | 252 | 253 | 254 | 255 | 256 | 257 | 258 | 259 | 260 | 261 | 262 | 263 | 264 | 265 | 266 | 267 | 268 | 269 | 270 | 271 | 272 | 273 | 274 | 275 |
276 | 277 | 278 | 279 | 280 | 281 | 282 | 283 | 284 | 285 | 286 | 287 | 288 | 289 | 290 | 291 | 292 | 293 | 294 | 295 | 296 | 297 | 298 | 299 | 300 |
301 | 302 | 303 | 304 | 305 | 306 | 307 | 308 | 309 | 310 | 311 | 312 | 313 | 314 | 315 | 316 | 317 | 318 | 319 | 320 | 321 | 322 | 323 | 324 | 325 |
326 | 327 | 328 | 329 | 330 | 331 | 332 | 333 | 334 | 335 | 336 | 337 | 338 | 339 | 340 | 341 | 342 | 343 | 344 | 345 | 346 | 347 | 348 | 349 | 350 |
351 | 352 | 353 | 354 | 355 | 356 | 357 | 358 | 359 | 360 | 361 | 362 | 363 | 364 | 365 | 366 | 367 | 368 | 369 | 370 | 371 | 372 | 373 | 374 | 375 |
376 | 377 | 378 | 379 | 380 | 381 | 382 | 383 | 384 | 385 | 386 | 387 | 388 | 389 | 390 | 391 | 392 | 393 | 394 | 395 | 396 | 397 | 398 | 399 | 400 |
401 | 402 | 403 | 404 | 405 | 406 | 407 | 408 | 409 | 410 | 411 | 412 | 413 | 414 | 415 | 416 | 417 | 418 | 419 | 420 | 421 | 422 | 423 | 424 | 425 |
426 | 427 | 428 | 429 | 430 | 431 | 432 | 433 | 434 | 435 | 436 | 437 | 438 | 439 | 440 | 441 | 442 | 443 | 444 | 445 | 446 | 447 | 448 | 449 | 450 |
451 | 452 | 453 | 454 | 455 | 456 | 457 | 458 | 459 | 460 | 461 | 462 | 463 | 464 | 465 | 466 | 467 | 468 | 469 | 470 | 471 | 472 | 473 | 474 | 475 |
476 | 477 | 478 | 479 | 480 | 481 | 482 | 483 | 484 | 485 | 486 | 487 | 488 | 489 | 490 | 491 | 492 | 493 | 494 | 495 | 496 | 497 | 498 | 499 | 500 |
501 | 502 | 503 | 504 | 505 | 506 | 507 | 508 | 509 | 510 | 511 | 512 | 513 | 514 | 515 | 516 | 517 | 518 | 519 | 520 | 521 | 522 | 523 | 524 | 525 |
526 | 527 | 528 | 529 | 530 | 531 | 532 | 533 | 534 | 535 | 536 | 537 | 538 | 539 | 540 | 541 | 542 | 543 | 544 | 545 | 546 | 547 | 548 | 549 | 550 |
551 | 552 | 553 | 554 | 555 | 556 | 557 | 558 | 559 | 560 | 561 | 562 | 563 | 564 | 565 | 566 | 567 | 568 | 569 | 570 | 571 | 572 | 573 | 574 | 575 |
576 | 577 | 578 | 579 | 580 | 581 | 582 | 583 | 584 | 585 | 586 | 587 | 588 | 589 | 590 | 591 | 592 | 593 | 594 | 595 | 596 | 597 | 598 | 599 | 600 |
601 | 602 | 603 | 604 | 605 | 606 | 607 | 608 | 609 | 610 | 611 | 612 | 613 | 614 | 615 | 616 | 617 | 618 | 619 | 620 | 621 | 622 | 623 | 624 | 625 |
626 | 627 | 628 | 629 | 630 | 631 | 632 | 633 | 634 | 635 | 636 | 637 | 638 | 639 | 640 | 641 | 642 | 643 | 644 | 645 | 646 | 647 | 648 | 649 | 650 |
651 | 652 | 653 | 654 | 655 | 656 | 657 | 658 | 659 | 660 | 661 | 662 | 663 | 664 | 665 | 666 | 667 | 668 | 669 | 670 | 671 | 672 | 673 | 674 | 675 |
676 | 677 | 678 | 679 | 680 | 681 | 682 | 683 | 684 | 685 | 686 | 687 | 688 | 689 | 690 | 691 | 692 | 693 | 694 | 695 | 696 | 697 | 698 | 699 | 700 |
701 | 702 | 703 | 704 | 705 | 706 | 707 | 708 | 709 | 710 | 711 | 712 | 713 | 714 | 715 | 716 | 717 | 718 | 719 | 720 | 721 | 722 | 723 | 724 | 725 |
726 | 727 | 728 | 729 | 730 | 731 | 732 | 733 | 734 | 735 | 736 | 737 | 738 | 739 | 740 | 741 | 742 | 743 | 744 | 745 | 746 | 747 | 748 | 749 | 750 |
751 | 752 | 753 | 754 | 755 | 756 | 757 | 758 | 759 | 760 | 761 | 762 | 763 | 764 | 765 | 766 | 767 | 768 | 769 | 770 | 771 | 772 | 773 | 774 | 775 |
776 | 777 | 778 | 779 | 780 | 781 | 782 | 783 | 784 | 785 | 786 | 787 | 788 | 789 | 790 | 791 | 792 | 793 | 794 | 795 | 796 | 797 | 798 | 799 | 800 |
801 | 802 | 803 | 804 | 805 | 806 |
I scored 13526 points (out of 15700 possible points, top rank was 17 out of ≈60000 in August 2017) at Hackerrank's Project Euler+.
My username at Project Euler is stephanbrumme while it's stbrumme at Hackerrank.
Look at my progress and performance pages to get more details.
Copyright
I hope you enjoy my code and learn something - or give me feedback how I can improve my solutions.
All of my solutions can be used for any purpose and I am in no way liable for any damages caused.
You can even remove my name and claim it's yours. But then you shall burn in hell.
The problems and most of the problems' images were created by Project Euler.
Thanks for all their endless effort !!!
<< problem 539 - Odd elimination | Robot Welders - problem 563 >> |