Primus-Orderus Primes

15

Qui sont-ils?

Les nombres premiers de Primus-Orderus (POP) sont des nombres premiers qui contiennent leur ordre dans la séquence des nombres premiers.
Donc, le nthpremier, pour être POP, doit contenir tous les chiffres d' nune certaine manière que je vais expliquer.

Exemples

Soyons plus clairs: tous les chiffres de ndoivent apparaître parmi les chiffres de POP dans le même ordre dans lequel ils apparaissentn

Le 6469thpremier est celui 64679qui est POP car il contient tous les chiffres de 6469dans le bon ordre.
1407647est POP parce que c'est le 107647thnombre premier

14968819 est POP (968819th prime). Donc ce défi n'est PAS OEIS (A114924)

1327 n'est PAS POP car c'est le 217thnombre premier (les chiffres ne sont pas dans le bon ordre)

Le défi

Vous avez bien deviné!
Étant donné un entier n, affichez le nthPOP

Cas de test

entrée-> sortie 

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

Il s'agit de code-golf, donc la réponse la plus courte en octets l'emporte!

Tous ces éléments doivent être indexés 1

code-golf sequence primes
la source
0 indexé, 1 indexé ou le choix du concessionnaire?
Shaggy
@Shaggy Je pense que c'est 1-indexé de telle sorte qu'il est compatible avec les cas de test (le genre d'ordre importe).
M. Xcoder
@ Mr.Xcoder C'est le 1er POP, 7ème prime
@MrXcoder: oui, désolé, j'ai probablement mal formulé cela; ce que je voulais demander, est-ce que l'indexation 0 est autorisée? De toute évidence, à partir des cas de test, l'indexation 1 est autorisée. Soit dit en passant, avons-nous un consensus sur l'indexation que nous pouvons utiliser dans un défi si tout ce que nous avons à faire est les cas de test et il n'y a aucune mention explicite dans les spécifications du défi?
Shaggy
1
Merci, Bill. Alors que, pour la plupart, vos récents défis ont été très bons, chacun d'eux a eu un problème mineur ou 2 qui a dû être clarifié dans les commentaires, c'est pourquoi je vous suggère de commencer à mettre vos défis en sandbox, pour nous permettent d'attraper ces problèmes.
Shaggy

Réponses:

3

Mathematica, 104 octets

Extrêmement efficace

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


trouve n = 34 en moins d'une minute

J42161217
la source
2

Husk , 11 octets

!fS¤o€Ṗdṗİp

Essayez-le en ligne!

Pas si rapide, calcule f (5) en environ 30 secondes sur TIO

Explication

!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
Leo
la source
2

Python 2 + gmpy2 , 188 162 octets

Assez efficace, trouve n = 34 en 22 secondes sur TIO!

Pourrait probablement être un peu joué au golf

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

Essayez-le en ligne!

Halvard Hummel
la source
@Dopapp, cela n'ajouterait-il pas des octets? __import__("gmpy2").est plus long quefrom gmpy2 import*\n
Halvard Hummel
Oh oui, je ne sais pas pourquoi cela a été différent la première fois. J'ai probablement oublié les guillemets ou quelque chose
Daniel