Onlar kim?

Primus-Orderus Asal (POP) kendi içeren asal olan düzeni asal dizisinde.
Yani nthasal, POP olabilmek için, tüm rakamlarını naçıklayacağım belli bir şekilde içermelidir .

Örnekler

İşleri daha netleştirelim: Tüm nbasamakları, POP basamakları arasında göründükleri sırayla görünmelidirn

6469thAsal 64679o tüm rakamlarını içerdiğinden POP olan 6469doğru sırayla.
1407647POP çünkü 107647thasal sayı

14968819 olan POP bu meydan .Yani (968819 asal) 'dir DEĞİL OEIS (A114924)

1327 POP DEĞİL çünkü 217thasal (rakamlar doğru sırada değil)

Meydan okuma

Doğru tahmin ettiniz!
Bir tamsayıdır verilen nçıkış nthPOP

Test Durumları

girdi-> çıktı

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

Bu kod golf yani bayt en kısa cevap kazanır!

Bütün bunlar 1-Endeksli olmalıdır

Mathematica, 104 bayt

Son derece verimli

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

bir dakikadan az bir sürede n = 34 bulur

Kabuk , 11 bayt

!fS¤o€Ṗdṗİp

Çevrimiçi deneyin!

O kadar hızlı değil, TIO'da yaklaşık 30 saniye içinde f (5) değerini hesaplar

açıklama

!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

Piton 2 + gmpy2 , 188 162 bayt

Oldukça verimli, TIO'da 22 saniyede n = 34 bulur !

Muhtemelen biraz golf oynayabilir

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

Çevrimiçi deneyin!

05AB1E , 11 bayt

µN<Ø©æNå½}®

Çevrimiçi deneyin!

Son derece verimsiz.

Jöle , 12 bayt

ÆNDŒPḌċµ#ṪÆN

Çevrimiçi deneyin!

Son derece verimsiz ama işe yarıyor.