Анализ последовательности простых чисел

[serval]

Здравствуйте.

Имеется последовательность из 225 простых чисел от 3 до 3841447076531650951 полученных по определённому алгоритму.
Требуется выяснить как они распределены среди всех простых чисел в этом интервале и какой вид имеет каждое число - Белла, Вильсона, Мерсена и пр.
Можно ли выполнить такой анализ с помощью какого-нибудь математического пакета?

P.S. Вообще, имеется последовательность из 11 последовательностей, первая из которых содержит 5 простых чисел.

[kotenok gav]

Сначала приведите сам список "вид чисел".

[serval]

Простите, не понял вопроса.
Привести мой список простых чисел или список возможных видов простых чисел?

[kotenok gav]

Второе.

[serval]

Пункты со 2 по 28. Не знаю, полон ли этот список.

https://ru.wikipedia.org/wiki/%D0%A1%D0 ... 0%B5%D0%BB

[kotenok gav]

Код для Mathematica:
getTypesOfPrimes[primes_, primeTypes_] := For[i=0, i < Length[primes], i++, Print["Number ", primes[i]]; For[j=0, j < Length[primeTypes], j++, If[primeTypes[j][primes[i]], Print["Type ", j]]]]
Вызывать надо так: getTypesOfPrimes[список_чисел, список_функций_проверки_является_ли_число_принадлежащим_типу]. Функция для каждого числа выведет номера типов, которыми оно является.

-- 13 май 2020, 05:28 --

Типа такого (числа взяты случайно, это лишь пример того, что может вывести):
Number 2
Type 0
Type 3
Number 3
Type 1
Type 3

[serval]

Алгоритм понятен. То есть, в Mathematica есть набор функций, позволяющих определить принадлежность простого числа определённому типу. Спасибо. Надо полагать, в Maple он тоже есть.
Я надеялся, что есть функция определения типа простого числа без явного перечисления этих типов.

[kotenok gav]

serval в сообщении #1462172 писал(а):

То есть, в Mathematica есть набор функций, позволяющих определить принадлежность простого числа определённому типу.

Думаю, они есть далеко не для всех типов, так что остальные вам придется запрограммировать самостоятельно.

[serval]

Спасибо ещё раз, но вопрос не про то, как запрограммировать применение каждой функции из списка к каждому аргументу из другого списка :) а про то, существуют ли специализированные инструменты анализа простых чисел и их последовательностей.

[kotenok gav]

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

getTypesOfPrimes[primes_, primeTypes_] := For[i=0, i < Length[primes], i++, Print["Number ", primes[i]]; For[j=0, j < Length[primeTypes], j++, If[primeTypes[j][primes[i]], Print["Type ", j]]]]

Упс, getTypesOfPrimes[primes_, primeTypes_] := For[i = 1, i <= Length[primes], i++, Print["Number ", Extract[primes, i]]; For[j = 1, j <= Length[primeTypes], j++, If[Extract[primeTypes, j][Extract[primes, i]], Print["Type ", j]]]].