<< problem 291 - Panaitopol Primes | Zeckendorf Representation - problem 297 >> |

# Problem 293: Pseudo-Fortunate Numbers

(see projecteuler.net/problem=293)

An even positive integer N will be called admissible, if it is a power of 2 or its distinct prime factors are consecutive primes.

The first twelve admissible numbers are 2,4,6,8,12,16,18,24,30,32,36,48.

If N is admissible, the smallest integer M > 1 such that N+M is prime, will be called the pseudo-Fortunate number for N.

For example, N=630 is admissible since it is even and its distinct prime factors are the consecutive primes 2,3,5 and 7.

The next prime number after 631 is 641; hence, the pseudo-Fortunate number for 630 is M=11.

It can also be seen that the pseudo-Fortunate number for 16 is 3.

Find the sum of all distinct pseudo-Fortunate numbers for admissible numbers N less than 10^9.

# My Algorithm

The problem description starts with "an *even* positive integer [...]" and continues with "[...] its distinct prime factors are consecutive primes.".

Therefore any admissible number must be a multiple of 2 and its prime factors must start with 2, 3, 5, 7, ... without any gap.

Its general form is: 2^a * 3^b * 5^c * ... where a exponent is only zero if all following exponents are zero, too.

The highest relevant base (prime) is 23 because 2^1 * 3^1 * 5^1 * 7^1 * 9^1 * 11^1 * 13^1 * 17^1 * 19^1 * 23^1 = 223092870 < 10^9.

Extending the series with 29^1 would exceed 10^9.

In step 1 of my algorithm I create all such admissible numbers up to 10^9 in ascending order:

- put a 2 in the automatically sorted `todo`

container, its highest prime factor is 2 (index 0 of `factors`

)

- then repeat until `todo`

is empty:

- pick the lowest number from `todo`

and store it in `admissible`

- multiply the same number by all values of `factor[0 ... index+1]`

(those are the prime factors) and store them in `todo`

(if < 10^9)

In step 2 I run a simple prime sieve (trial division) to find all prime numbers up to sqrt(10^9).

Step 3 needs these prime numbers to run a primality test on each admissible number's right neighbors.

Admissible numbers are always even, therefore only the numbers +3, +5, +7, +9, ... have to be checked.

## Note

There are a few optimization tricks:

- some admissible numbers are smaller than the prime numbers generated in step 2 → simple linear search in `primes`

- for this specific range, not all primes in step 2 are actually needed → it's sufficient to have all primes up to sqrt(2.8 * 10^8) → 30% faster

# My code

… was written in C++11 and can be compiled with G++, Clang++, Visual C++. You can download it, too.

#include <iostream>
#include <vector>
#include <map>
#include <set>
int main()
{
unsigned int limit = 1000000000;
std::cin >> limit;
// ---------- step 1: find all admissible numbers ----------
// generate all numbers 2^a * 3^b * 5^c * 7^d * 11^e ...
const unsigned int NumFactors = 9;
const unsigned int factors[NumFactors] = { 2,3,5,7,11,13,17,19,23 };
// product of all factors is just under 10^9, including the next prime (29) would be bigger than 10^9
// store all admissible numbers
std::vector<unsigned int> admissible;
// [number] => [index of its highest prime factor]
std::map<unsigned int, unsigned char> todo = { { 2, 0 } };
while (!todo.empty())
{
// pick smallest number and remove from to-do list
auto current = *(todo.begin());
todo.erase(todo.begin());
auto number = current.first;
auto maxPrime = current.second;
// add to admissible list
admissible.push_back(number);
// multiply by all already used prime numbers and the next one
for (unsigned char i = 0; i <= maxPrime + 1; i++) // can start with i = maxPrime, too
{
// only up to 9 primes are relevant
if (i == NumFactors)
break;
// put on to-do list if below 10^9
auto next = number * (unsigned long long)factors[i];
if (next < limit)
todo[next] = std::max(maxPrime, i);
}
}
// note: only 6656 admissible numbers
// ---------- step 2: generate prime numbers up to sqrt(10^9) ----------
// find at least one prime factor for each number below 10^9
// => all up to sqrt(10^9) which is about 31622
// and a few more to be on the safe side ... not needed in this case, but safety first :-)
auto primeLimit = limit + 1000;
// but I can cheat and reduce primeLimit as long as I get the correct result
// => makes the program about 30% faster
//primeLimit = 271623361;
std::vector<unsigned int> primes = { 2 };
// simply trial-division prime generator
for (unsigned int i = 3; i*i <= primeLimit; i += 2)
{
bool isPrime = true;
// test against all prime numbers we have so far (in ascending order)
for (auto x : primes)
{
// prime is too large to be a divisor
if (x*x > i)
break;
// divisible => not prime
if (i % x == 0)
{
isPrime = false;
break;
}
}
// yes, we have a prime
if (isPrime)
primes.push_back(i);
}
// only 1911 out of the 3401 primes are actually needed in step 3
// ---------- step 3: look for each admissible number's fortunate number ----------
// std::set automatically filters duplicates
std::set<unsigned int> fortunate;
size_t pos = 0;
for (auto x : admissible)
{
// every admissible number is even and m > 1
// => therefore the first candidate is at m = 3
const unsigned int MinDistance = 3;
// fast check for small primes
if (x <= primes.back() - MinDistance)
{
while (primes[pos] < x + MinDistance)
pos++;
auto distance = primes[pos] - x;
// might be a duplicate but std::set makes sure that all values are unique
fortunate.insert(distance);
continue;
}
// every prime is odd (except for 2)
// => I look at every second number
for (unsigned int m = MinDistance; ; m += 2)
{
auto candidate = x + m;
// is it a prime ?
bool isPrime = true;
// trial division
for (auto p : primes) // actually I could skip p = 2 because all candidates are odd
if (candidate % p == 0)
{
// it's a composite number
isPrime = false;
break;
}
// no, keep going ...
if (!isPrime)
continue;
// yes, a prime
auto distance = candidate - x;
// might be a duplicate but std::set ensures that all values are unique
fortunate.insert(distance);
break;
}
}
// add all fortunate numbers
unsigned int sum = 0;
for (auto x : fortunate)
sum += x;
// display result
std::cout << sum << std::endl;
return 0;
}

This solution contains 26 empty lines, 40 comments and 4 preprocessor commands.

# Interactive test

You can submit your own input to my program and it will be instantly processed at my server:

This is equivalent to`echo 50 | ./293`

Output:

*Note:* the original problem's input `1000000000`

__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)*

# Benchmark

The correct solution to the original Project Euler problem was found in 0.10 seconds on a Intel® Core™ i7-2600K CPU @ 3.40GHz.

(compiled for x86_64 / Linux, GCC flags: `-O3 -march=native -fno-exceptions -fno-rtti -std=c++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

July 26, 2017 submitted solution

July 26, 2017 added comments

# Difficulty

Project Euler ranks this problem at **25%** (out of 100%).

# Links

projecteuler.net/thread=293 - **the** best forum on the subject (*note:* you have to submit the correct solution first)

# Heatmap

green problems solve the original Project Euler problem and have a perfect score of 100% at Hackerrank, too.

yellow problems score less than 100% at Hackerrank (but still solve the original problem).

gray problems are already solved but I haven't published my solution yet.

blue problems are solved and there wasn't a Hackerrank version of it at the time I solved it or I didn't care about it because it differed too much.

red problems are solved but exceed the time limit of one minute or the memory limit of 256 MByte.

*Please click on a problem's number to open my solution to that problem:*

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 |

I scored 13,183 points (out of 15300 possible points, top rank was 17 out of ≈60000 in August 2017) at Hackerrank's Project Euler+.

Look at my progress and performance pages to get more details.

My username at Project Euler is

**stephanbrumme**while it's stbrumme at Hackerrank.

# 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 291 - Panaitopol Primes | Zeckendorf Representation - problem 297 >> |