Для каких n выполняется это утверждение?

[rockclimber]

kotenok gav в сообщении #1220461 писал(а):

Geen в сообщении #1220454 писал(а):

сейчас кругом через веб ставиться

А это как?

Вы скачиваете небольшой инсталлятор (несколько мегабайт), запускаете его, а он уже скачивает все остальное. Причем он может и не сказать, сколько именно он скачает.

[kotenok gav]

А есть способ узнать сколько он скачал?

[rockclimber]

Обычно они сами показывают в процессе загрузки, но если не показывают, то простого способа нет.

[kotenok gav]

А какой есть сложный?

[mihaild]

Средствами ОС выяснять, сколько в сеть лез данный процесс.

[Aritaborian]

kotenok gav в сообщении #1220449 писал(а):

Я хочу найти для каких n сущевствует число k $k<n$ такое что, праймориал k-того простого числа + 1 делится на n-ное простое число.

Вот решение на языке Wolfram Language:

primorial[n_] := Times @@ (Prime /@ Range[n])
goodNumberQ[n_] := AnyTrue[primorial /@ Range[n - 1] + 1, Divisible[#, Prime[n]] &]
Select[Range[200], goodNumberQ]

Out[] = {2, 4, 8, 11, 17, 18, 21, 25, 32, 34, 35, 39, 40, 42, 47, 48, 58, 59, 63, 65, 66, 67, 69, 90, 91, 97, 105, 110, 122, 140, 144, 151, 152, 162, 166, 168, 173, 174, 175, 177, 179, 180, 186}

Выяснилось, что это A279097.

[kotenok gav]

Большое спасибо!

[Aritaborian]

kotenok gav, а где же обещанный

kotenok gav в сообщении #1220464 писал(а):

часа через два

код на Паскале? Ай-яй-яй, нехорошо. (Я понимаю, что раз уж задача решена, то зачем он, а решить задачу для вас за две-три минуты мне никаких трудов не составило; но осадочек остался.)

[kotenok gav]

Я в нем вчера нашел ошибку.