Primus-Orderus-Primzahlen

15

Wer sind Sie?

Primus-Orderus-Primzahlen (POP) sind Primzahlen, deren Reihenfolge in der Folge von Primzahlen enthalten ist.
Also muss die nthPrimzahl, um POP zu sein, nauf eine bestimmte Weise alle Ziffern von enthalten , die ich erklären werde.

Beispiele

Lassen Sie uns die Dinge klarer machen: Alle Ziffern von nmüssen unter den Ziffern von POP in derselben Reihenfolge erscheinen, in der sie erscheinenn

Die 6469thPrimzahl ist 64679POP, weil sie alle Ziffern 6469in der richtigen Reihenfolge enthält.
1407647ist POP, weil es die 107647thPrimzahl ist

14968819 ist POP (968819th prime). Diese Herausforderung ist also NICHT OEIS (A114924)

1327 ist NICHT POP, weil es die 217thPrimzahl ist (Ziffern sind nicht in der richtigen Reihenfolge)

Die Herausforderung

Du hast richtig geraten!
Geben Sie bei einer Ganzzahl nden nthPOP aus

Testfälle

Eingabe-> Ausgabe 

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

Das ist Code-Golf, also gewinnt die kürzeste Antwort in Bytes!

Alle diese sollten 1-indiziert sein

code-golf sequence primes
quelle
0-indiziert, 1-indiziert oder Händlerwahl?
Shaggy
@ Shaggy Ich denke, dies ist 1-indiziert, so dass es mit den Testfällen kompatibel ist (Die Reihenfolge Art der Angelegenheiten).
Mr. Xcoder
@ Mr.Xcoder Es ist der 1. POP, 7. Prime
@ MrXcoder: Ja, Entschuldigung, ich habe das wahrscheinlich schlecht formuliert. Was ich fragen wollte, ist 0-Indizierung erlaubt? Offensichtlich aus den Testfällen, 1-Indizierung ist erlaubt. Haben wir im Übrigen einen Konsens darüber, welche Indizierung wir in einer Herausforderung verwenden können, wenn wir nur die Testfälle durchgehen müssen und es in den Herausforderungsspezifikationen keine ausdrückliche Erwähnung gibt?
Shaggy
1
Danke, Bill. Während Ihre letzten Herausforderungen größtenteils sehr gut waren, gab es für jede ein kleines Problem oder zwei Probleme, die in den Kommentaren behoben werden mussten. Aus diesem Grund empfehle ich Ihnen, Sandboxing für Ihre Herausforderungen zu starten erlauben Sie uns, diese Probleme zu fangen.
Shaggy

Antworten:

3

Mathematica, 104 Bytes

Sehr effizient

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


findet n = 34 in weniger als einer Minute

J42161217
quelle
2

Schale , 11 Bytes

!fS¤o€Ṗdṗİp

Probieren Sie es online!

Nicht so schnell, berechnet f (5) in ungefähr 30 Sekunden auf TIO

Erläuterung

!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
Löwe
quelle
2

Python 2 + gmpy2 , 188 162 Bytes

Sehr effizient, findet n = 34 in 22 Sekunden bei TIO!

Könnte wohl ein bisschen golfen sein

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

Probieren Sie es online!

Halvard Hummel
quelle
@Dopapp, würde das nicht Bytes hinzufügen? __import__("gmpy2").ist länger alsfrom gmpy2 import*\n
Halvard Hummel
Oh ja, ich weiß nicht, warum das das erste Mal anders war. Ich habe wahrscheinlich die Anführungszeichen oder so etwas vergessen
Daniel