Хто вони?

Прайми Примуса-Портуса (POP) - це праймери, які містять свій порядок у послідовності праймів.
Отже, nthпрем'єр, щоб бути POP, повинен містити всі цифри nпевним чином, який я поясню.

Приклади

Давайте станемо зрозумілішими: усі цифри nповинні відображатися серед цифр POP у тому ж порядку, у якому вони відображаютьсяn

Найголовніше 6469th- 64679це POP, оскільки воно містить усі цифри 6469в потрібному порядку.
1407647є POP, оскільки це 107647thпросте число

14968819 - POP (968819-й прем'єр). Отже, це завдання НЕ OEIS (A114924)

1327 НЕ POP, тому що це 217thпросте (цифри не в правильному порядку)

Змагання

Ви правильно здогадалися!
Дано ціле числоn , виведіть nthPOP

Випробування

вхід-> вихід

1->17
3->14723    
5->57089
10->64553 
29->284833  
34->14968819

Це код-гольф, тому найкоротша відповідь у байтах виграє!

Все це повинно бути 1-індексованим

Математика, 104 байти

Надзвичайно ефективний

(t=i=1;While[t<#+1,If[!FreeQ[Subsets[(r=IntegerDigits)@Prime@i,{Length@r@i}],r@i],t++];i++];Prime[i-1])&

знаходить n = 34 за менше хвилини

Лушпиння , 11 байт

!fS¤o€Ṗdṗİp

Спробуйте в Інтернеті!

Не так швидко, обчислює F (5) приблизно за 30 секунд на TIO

Пояснення

!fS¤o€Ṗdṗİp
 f       İp    Filter the list of prime numbers and keep only those for which:
  S¤o€Ṗdṗ       The "d"igits of its index in the "ṗ"rime numbers are an "€"lement of the 
                  "Ṗ"owerset of its "d"igits
!              Return the element at the desired index of this filtered list

Python 2 + gmpy2 , 188 162 байт

Досить ефективно, знаходить n = 34 за 22 секунди на TIO!

Можливо, можливо, трохи пограти в гольф

from gmpy2 import*
def F(a,b):
 i=k=0
 while b[i:]and a[k:]:k+=a[k]==b[i];i+=1
 return"0">a[k:]
x=input()
u=z=1
while x:z=next_prime(z);x-=F(`u`,`z`);u+=1
print z

Спробуйте в Інтернеті!

05AB1E , 11 байт

µN<Ø©æNå½}®

Спробуйте в Інтернеті!

Надзвичайно неефективний.

Желе , 12 байт

ÆNDŒPḌċµ#ṪÆN

Спробуйте в Інтернеті!

Вкрай неефективно, але працює.