Если не сложно, просьба: для этого паттерна указать, какое неизвестное число ожидается на каждом месте (p, pq, pqr, pqrs...), и в каких позициях размещаются квадраты простых.
Я могу это все сам посчитать, но вручную

Не надо вручную:
Код:
? v=[2850, 289, 4, 3, 242, 845, 504, 1, 2, 3, 20, 1, 6, 49, 32, 13365, 2, 1, 2652, 361, 70];
? d=[numdiv(t) | t<-v]
%2 = [24, 3, 3, 2, 6, 6, 24, 1, 2, 2, 6, 1, 4, 3, 6, 24, 2, 1, 24, 3, 8]
? p2=[issquarefree(t) | t<-v]\\квадраты простых
%3 = [0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1]
? p2=[t==8||t==4||t==2||t==1 | t<-d]\\или так квадраты
%3 = [0, 0, 0, 1, 0, 0, 0, 1, 1, 1, 0, 1, 1, 0, 0, 0, 1, 1, 0, 0, 1]
? p=[t==24||t==8 | t<-d]
%5 = [1, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 1, 0, 1]
? pq=[t==12||t==4 | t<-d]
%6 = [0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 1, 0, 0, 0, 0, 0, 0, 0, 0]
? pqr=[t==6||t==2 | t<-d]
%7 = [0, 0, 0, 1, 1, 1, 0, 0, 1, 1, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 0]
? pqrs=[t==3||t==1 | t<-d]
%8 = [0, 1, 1, 0, 0, 0, 0, 1, 0, 0, 0, 1, 0, 1, 0, 0, 0, 1, 0, 1, 0]
Если надо в виде индексов, то:
Код:
? p2=Vec(select(t->(t==8||t==4||t==2||t==1),d,1))
%9 = [4, 8, 9, 10, 12, 13, 17, 18, 21]
Остальные аналогично, меняется только условие.