프라임은 어디에나 있습니다 ...

그들은 파이 안에 숨어

3.141592653 58979 3238 462643 3832 795028841 971693993751

그 프라임을 얻자!

도전

integer 입력으로 주어지면 n>0첫 번째 n숫자 안에 몇 개의 소수가 숨겨져 있는지 확인하십시오.Pi

예

들어 n=3우리의 소수를 검색한다 [3,1,4]. 이 두 소수는 (3,31)코드를 출력한다, 그래서 2
를 들어 n=10, 처음 10 개 자리는 [3,1,4,1,5,9,2,6,5,3]당신의 코드를 출력해야 12하기 때문에 [2, 3, 5, 31, 41, 53, 59, 653, 4159, 14159, 314159, 1592653]숨겨진 (발견!)

테스트 사례

입력-> 출력

1->1  
3->2  
13->14  
22->28  
42->60  
50->93

150->197  
250->363  
500->895

규칙

코드는 최소한 모든 소수n=50 를 찾을 수 있어야합니다.
예. 입력 하드 코딩 항목 이 마음에 들면 첫 50 자리 를 하드 코딩 할 수 있습니다.Pi

이것은 코드 골프 입니다. 바이트 단위의 가장 빠른 답변이 승리합니다!

05AB1E ,  10  8 바이트

Adnan 덕분에 -2 바이트 ( p벡터화)

<žsþŒÙpO

온라인으로 사용해보십시오!(n = 98413까지 작동하지만 우선 순위에 대해 그러한 많은 수를 테스트해야하기 때문에 n = 50에서도 매우 느릴 것입니다-n = 50의 경우 60 초에 TIO 시간 초과.)

방법?

<žsþŒÙpO - implicitly push input, n
<        - decrement = n-1
 žs      - pi to that many decimal places (i.e. to n digits)
   þ     - only the digits (get rid of the decimal point)
    Π   - all sublists
     Ù   - unique values
      p  - is prime? (vectorises) 1 if so, 0 otherwise
       O - sum
         - implicitly print the top of the stack

수학, 76 바이트

Tr[1^Union@Select[FromDigits/@Subsequences@#&@@RealDigits[Pi,10,#],PrimeQ]]&

Mathematica, 104 97 90 바이트

Length@DeleteDuplicates@Select[FromDigits/@Subsequences@First@RealDigits[Pi,10,#],PrimeQ]&

하 하하하, 나는이 일을 할 수 있었다. Mathematica 사용법을 잘 모릅니다. XD

입력:

[50]

파이썬 (3) , 274 (237) 207 194 189 바이트

Wheat Wizard 덕분에 -37 바이트! Mr.Xcoder 덕분에 -14 바이트.

pi 의 처음 50 자리를 하드 코드 하지만 다른 모든 것을 수동으로 계산합니다.

x=int(input());l="31415926535897932384626433832795028841971693993751"[:x]
print(sum(all(i%m for m in range(2,i))for i in{int(i)for w in range(x)for i in[l[j:j-~w]for j in range(x-w)]}-{1}))

온라인으로 사용해보십시오!

R, 156123 바이트

cat(cumsum(c(1,1,0,1,1,4,1,0,0,3,0,0,2,7,3,1,0,3,0,0,0,0,0,0,4,1,0,6,0,3,2,0,0,0,0,0,0,4,3,3,6,0,4,8,2,5,3,6,0,5))[scan()])

매우 흥미로운 솔루션. 적절한 일을하고 있습니다.

@Giuseppe 덕분에 33 바이트를 절약했습니다.

R (+ 숫자 및 gmp), 198 바이트

function(n,x=unique(gmp::as.bigz(unlist(sapply(1:n,function(x)substring(gsub("[.]","",numbers::dropletPi(50)),x,x:n))))))min(length(x),sum(sapply(sapply(x[x>0&!is.na(x)],gmp::factorize),length)==1))

적절한 솔루션. 소요n 입력한다.

numbers::dropletPi(50)pi의 처음 50 자리를 생성하는 데 사용 합니다. gsub소수점을 제거합니다. substring파이의 가능한 모든 부분 문자열 (놀람 놀라움)을n .

반환 된리스트는 전개되어 gmp의 bigz형식으로 변환 됩니다. 이 형식은 길이가 50 인 정수를 저장하는 데 필요합니다 unique. 해당 벡터의 고유 한 값을 사용합니다. 이 결과는x .

그런 다음 우선 성을 확인합니다. 많은 경우와 성가심이 있기 때문에 까다 롭습니다.

• 높은 n경우에는 0파이가 있습니다. 이로 인해 앞에 0이 붙는 부분 문자열이 생깁니다. as.bigz를 NA제거 해야하는 s를 생성합니다 .

• 비슷한 메모에서 하위 문자열 "0"이 충돌 gmp::factorize하므로 제거해야합니다.

• 를 들어 n=1, x = 3. 그 자체로는 괜찮지 만 bigz표현 3은 반복 가능하므로 sapply혼란스럽고 16 개의 소수를보고 할 것입니다. 이를 위해 벡터의 최소 길이 x와 소수의 소수를 취 합니다.

• gmp::isprime큰 숫자를 안정적으로 처리 할 수 ​​없습니다. 대신 gmp::factorize출력 길이를 사용 하고 확인하는 것은 1입니다.

그래서 모든, 우리는 제거 0하고 NA부터 x. 우리는 모두를 분해 x하고 길이를 확인합니다. 발생 횟수를 세고를 1반환합니다 min(occurences, length(x)).

젤리 , 59 32 바이트

Outgolfer Erik 덕분에 -27 바이트.

“!⁶⁷¬,6½ạEC.wʠ€Ẉ!+Ẉfṭ¡’Ṿḣ³ẆVQÆPS

온라인으로 사용해보십시오!

설명

“...’Ṿḣ³ẆVQÆPS

“...’           compressed string that evaluates to first 50 digits of pi (314159...)
     Ṿ          uneval; stringify
      ḣ³        first n characters of the string where n is the first command-line argument
        Ẇ       all sublists
         V      convert all elements to integers
          Q     deduplicate
           ÆP   convert all prime elements to 1 and others to 0
             S  sum