นายกรัฐมนตรีซ้ำเป็นลำดับของช่วงเวลาเช่นนั้น

p(1) = 2
p(n) = the p(n-1)th prime

นี่คือตัวอย่างของวิธีที่หนึ่งอาจคำนวณ Prime Prime แบบเรียกซ้ำครั้งที่ 4

p(4) = the p(3)th prime
p(3) = the p(2)th prime
p(2) = the p(1)th prime
p(1) = 2
p(2) = the 2nd prime
p(2) = 3
p(3) = the 3rd prime
p(3) = 5
p(4) = the 5th prime
p(4) = 11

คุณควรเขียนโปรแกรมหรือฟังก์ชั่นที่ให้ n ส่งออกค่า Prime Recursively Prime

คุณอาจเลือกที่จะใช้การจัดทำดัชนีตาม 0 หากคุณต้องการในกรณีที่คุณต้องระบุในคำตอบของคุณ

นี่คือโค้ดกอล์ฟดังนั้นเป้าหมายคือเพื่อลดจำนวนไบต์ของคุณ

กรณีทดสอบ

1 -> 2
2 -> 3
3 -> 5
4 -> 11
5 -> 31
6 -> 127
7 -> 709
8 -> 5381
9 -> 52711

รายการ OEIS ที่เกี่ยวข้อง: OEIS A007097

โอเอซิส 3 ไบต์

โปรแกรมที่ถูก0 การจัดทำดัชนี รหัส:

<q2

ใช้สูตร: A (n) = nth_prime (ก (n-1) - 1)กับกรณีฐานA (0) = 2

คำอธิบายรหัส:

  2   = a(0)

<     # Decrement a(n - 1) to get a(n - 1) - 1
 q    # prime(a(n - 1) - 1)

ลองออนไลน์!

ที่จริงแล้ว 7 ไบต์

1@⌠DP⌡n

ลองออนไลน์!

คำอธิบาย:

1@⌠DP⌡n
1        push 1
 @       swap 1 with n
  ⌠DP⌡n  do the following n times:
   DP      decrement, prime at index

Mathematica ขนาด 16 ไบต์

Nest[Prime,1,#]&

ฟังก์ชั่นไม่ระบุชื่อ รับตัวเลขเป็นอินพุตและส่งคืนตัวเลขเป็นเอาต์พุต

เยลลี่ , 5 4 ไบต์

1 ไบต์ต้องขอบคุณ @Dennis

1ÆN¡

ลองออนไลน์!

คำอธิบาย

1        Starting with n = 1,
 ÆN      replace n by the nth prime
   ¡     (input) times.

JavaScript (ES6), 71 ไบต์

p=(n,x=1)=>n?p(n-1,(N=y=>x?N(++y,x-=(P=z=>y%--z?P(z):z==1)(y)):y)(1)):x

Ungolfed คุณมีสามฟังก์ชั่นวนซ้ำ:

P=(n,x=n)=>n%--x?P(n,x):x==1
N=(n,x=1)=>n?N(n-P(++x),x):x
p=(n,x=1)=>n?p(n-1,N(x)):x

• P กำหนดว่า nเป็นนายกหรือไม่
• N พบว่า nนายกครั้งที่;
• pเรียกใช้ซ้ำNใน1 nเวลาอินพุต

MATL , 6 ไบต์

1i:"Yq

ลองออนไลน์!

คำอธิบาย

1      % Push 1
i      % Input n
:      % Range [1 2 ... N]
"      % For each (that is, do the following N times)
  Yq   %   k-th prime, where k is the input
       % End for each (implicit)
       % Display stack (implicit)

R, 98 93 ไบต์

5 ไบต์ขอบคุณ @smci

นี่คือโซลูชันแบบเรียกซ้ำที่ไม่มีประสิทธิภาพอย่างน่ากลัว:

f<-function(m,n=1){j<-1;for(i in 1:n){j<-numbers::nextPrime(j)};a<-ifelse(m==0,j,f(m-1,j));a}

ทดสอบเอาท์พุท:

f(6)
[1] 127

f(10)        ### takes almost a minute... YIKES!!!
[1] 648391

Bash + ยูทิลิตี้ทั่วไป, 55

เนื่องจากเรากำลังทำซ้ำแบบซ้ำนี่เป็นคำตอบแบบวนซ้ำ:

((SHLVL-2<$1))&&primes 2|sed -n "`$0 $1`{p;q}"||echo 1

เนื่องจากการนับระดับการเรียกซ้ำจะขึ้นอยู่กับ$SHLVLตัวแปรในตัวดังนั้นคำตอบจึงสามารถปิดได้หากคุณมีระดับเปลือกลึกไม่กี่ระดับ นี่อาจเป็นสาเหตุที่คำตอบนี้ใช้ไม่ได้กับ TIO

หากไม่ดีแล้วนี่เป็นคำตอบทั่วไปมากขึ้น:

Bash + ยูทิลิตี้ทั่วไป, 58

for((i=$1;i--;));{
n=`primes 2|sed -n "$n{p;q}"`
}
echo $n

ลองมันออนไลน์

Haskell , 58 ไบต์

1 การจัดทำดัชนี

f 1=2;f n=[x|x<-[2..],all((>)2.gcd x)[2..x-1]]!!(f(n-1)-1)

ลองออนไลน์!

คำอธิบาย:

ใช้เหมือนกัน 0 การจัดทำดัชนีสำคัญรายการเคล็ดลับการเข้าถึงเป็นคำตอบของ Adnan
เป็นหลักตรงขึ้นตามข้อกำหนดอย่างอื่น

f 1=2; -- base case
f n= -- main case
    [x|x<-[2..],all((>)2.gcd x)[2..x-1]]             -- list of all primes
    [x|x<-[2..],                                     -- consider all numbers
                               [2..x-1]              -- consider all smaller numbers
                all((>)2.gcd x)                      -- is coprime with them?
                    (>)2.                            -- 2 is greater than
                         gcd x                       -- gcd(x,lambda input)
                                        !!(f(n-1)-1) -- access the
                                                     -- f(n-1)-th 1-indexed prime

05AB1E , 4 ไบต์

ÎF<Ø

ลองออนไลน์!

คำอธิบาย

ÎF<Ø
Î    # Push 0 and input
 F   # Do input times...
  <   # Decrement
   Ø  # Get the nth prime (0-indexed) with n being the top of the stack

สงสัย 23 ไบต์

p\.{1\2@:^(- p -#0 1)1P

1 การจัดทำดัชนี การใช้งาน:

p\.{1\2@:^(- p -#0 1)1P}; p 3

คำอธิบาย

p\.{                #. Pattern matching syntax
  1\2               #. Base case p(1)=2
  @:^(- p -#0 1)1P  #. Other cases p(n)=nthprime(p(n-1)-1)
                    #. nthprime is 0-indexed
}                   #. Trailing bracket is optional in this case