আমরা একটি ক্রম অনুসন্ধান করছি

প্রাকৃতিক সংখ্যা নিন
1,2,3,4,5,6,7,8,9,10,11,12,13,14...

বেস -২ এ রূপান্তর করুন
1,10,11,100,101,110,111,1000,1001,1010,1011,1100,1101,1110...

উপরের সংখ্যা গুলোকে সংযুক্ত করুন ate
110111001011101111000100110101011110011011110...

পার্টিশন এই সংখ্যাটি প্রধানমন্ত্রী খন্ডে
(ডিজিটের একটি মৌলিক সংখ্যা ধারণকারী খন্ডে)
primes asceding অনুক্রমে নেয়া হয়2,3,5,7,11,13,17...

[11][011][10010][1110111][10001001101][0101111001101][1110...]

এবং প্রতিটি খণ্ডের অঙ্কের যোগফলটি সন্ধান করুন

Primes 2 3 5 7 11 13 17
Chunks [11][011][10010][1110111][10001001101][0101111001101][1110...]
SumOfDigits 2 2 2 6 5 8

সিকোয়েন্স

2, 2, 2, 6, 5, 8, 9, 10, 14, 22, 11, 18, 25, 27, 32, 21, 28, 32, 40, 40, 49, 49, 32, 41, 49, 53, 63, 55, 63, 70, 87, 73, 51, 63, 71, 78, 78, 90, 107, 86, 96, 108, 115, 128, 138, 92, 83, 95, 102, 110, 130, 106, 122, 141, 149, 163, 130, 140, 151, 165, 181, 165, 204, 200, 234, 100, 130, 138, 167, 149, 169, 180, 209, 166, 189, 194, 222, 205, 234, 260, 216, 206, 217, 241, 240, 267, 289, 242, 274, 308, 286, 329, 338, 155, 189, 225, 197, 240, 272, 217, 254, 282, 287, 317, 281, 256, 299, 286, 331, 337, 316, 350, 354, 391, 367, 282, 327, 313, 364, 358, 348, 397, 406, 466 ...

চ্যালেঞ্জ

nthউপরের ক্রমের শব্দটি সন্ধান করুন

ইনপুট

একটি পূর্ণসংখ্যা n>0

পরীক্ষার মামলা

এটি কোডগল্ফ .বাইটের মধ্যে সবচেয়ে ছোট উত্তর!

code-golf sequence binary

2

সম্পর্কিত (প্রথম তিনটি ধাপ একই)

— লাইকনি

4

ডাউনভোটেড কারণ এটি একসাথে ছড়িয়ে পড়া চ্যালেঞ্জগুলির একটি গোছার মতো অনেক বেশি অনুভব করে।

— 22:55

14

কাস্তে , 8 বাইট

Σ!CİpṁḋN

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

Σ!CİpṁḋN
       N   Start with the infinite list of natural numbers.
     ṁḋ    Convert each to its binary representation and join them all together. (A)
   İp      Get the infinite list of primes. (B)
  C        Split (A) into chunks of lengths (B).
 !         Retrieve the nth chunk (where n is the input).
Σ          Sum the bits in this chunk.

— মার্টিন ইন্ডার
সূত্র

6

জেলি , 12 বাইট

RÆNµSRBFṁRṪS

এটি অনলাইন চেষ্টা করুন!

কিভাবে এটা কাজ করে

RÆNµSRBFṁRṪS  Main link. Argument: n

R             Range; yield [1, ..., n].
 ÆN           N-th prime; yield P := [p(1), ..., p(n)].
   µ          Begin a new, monadic chain with argument P.
    S         Take the sum of P, yielding s := p(1) + ... + p(n).
     R        Range; yield [1, ..., s].
      B       Binary; convert all integers from 1 to s to base 2.
       F      Flatten the resulting array.
         R    Range; yield [[1, ..., p(1)], ..., [1, ..., p(n)]].
        ṁ     Mold; reshape the result to the left like the result to the right.
          Ṫ   Tail; take the last chunk.
           S  Take the sum, counting the set digits.

— ডেনিস
সূত্র

5

05 এ বি 1 ই , 12 বাইট

কোড

বড় সংখ্যক জন্য বেশ ধীর পেতে পারেন:

ÅpDOLbJs£`SO

05AB1E- এনকোডিং ব্যবহার করে । এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

Åp              # Get a list of the first <input> primes
  DO            # Duplicate and sum the primes
    L           # Create the list [1, .., <sum>]
     bJ         # Convert to binary and join into a single string
       s£       # Get the slices [a[0:2], a[2:2+3], a[2+3:2+3+5], a[2+3+5:2+3+5+7], ...] 
                  corresponding to the list of primes
         `SO    # Get the last one and sum up it's digits

— আদনান
সূত্র

4

গণিত, 71 বাইট

(Tr/@TakeList[Join@@IntegerDigits[Range[#^2+1],2],Prime~Array~#])[[#]]&

এটি অনলাইন চেষ্টা করুন!

— J42161217
সূত্র

2

জেলি , 21 বাইট

RÆNSRBF
RÆN+\‘ṬœṗÇ⁸ịS

এটি অনলাইন চেষ্টা করুন!

— ফুটো নুন
সূত্র

2

জেলি , 16 বাইট

RBFṁ
RÆNSÇṫÆNC$S

এটি অনলাইন চেষ্টা করুন!

ব্যাখ্যা

RBFṁ  Helper link. Input: integer k
R     Range, [1, 2, ..., k]
 B    Convert each to a list of its binary digits
  F   Flatten
   ṁ  Shape it to length k

RÆNSÇṫÆNC$S  Main link. Input: integer n
R            Range, [1, 2, ..., n]
 ÆN          Get i'th prime for each
   S         Sum
    Ç        Call helper link
         $   Monadic chain
      ÆN       Get n'th prime
        C      Complement, 1 - n'th prime
     ṫ       Tail, take the last n'th prime digits
          S  Sum

— মাইল
সূত্র

2

আর , 206 200 বাইট

function(n){a=p=j=y=2
for(i in 2:n-1){while(sum(y)<4*a){x=as.double(rev(intToBits(j)))
y=c(y,x[cumsum(x)>0])
j=j+1}
b=1:a
y=y[-b]
z=outer(k<-b+a,p,'%%')
p=c(a<-k[!apply(z<1,1,sum)][1],p)}
sum(y[1:a])}

এটি অনলাইন চেষ্টা করুন!

অ্যালগরিদম প্রাইমগুলির মধ্য দিয়ে চক্র হিসাবে পুনরাবৃত্তভাবে বিটগুলি মুছে ফেলাতে "সংরক্ষণ" করার চেষ্টা করে। আমি অনুভব করি যে দশমিক থেকে বিট রূপান্তরটি সম্ভবত সংক্ষিপ্ত হতে পারে তবে আমি অন্যান্য বিকল্পগুলি খুঁজে বের করতে পারি না।

জনাথন ফরাসি ধন্যবাদ 6 বাইট সংরক্ষণ করা।

— NofP
সূত্র

1

আমি মনে করি আর জড়িত অ্যাসাইনমেন্টকে সমর্থন করে; p=j=2দুই বাইট চেয়ে খাটো p=2;j=2।

— জোনাথন ফ্রেচ

... যা সম্ভবত আরও a=pদুটি বাইট সংরক্ষণের জন্যও করা যেতে পারে ।

— জোনাথন ফ্রেচ

1

... এবং - কেন জানি না - এটি 200 টি বাইটের ফলস্বরূপ y=1, এটি প্রতিস্থাপনের জন্যও কাজ করে বলে মনে হচ্ছে । y=2

— জোনাথন ফ্রেচ

ধন্যবাদ. Y = 2 বিটটিকে অঙ্ক 1 এর জন্য প্রতিস্থাপন করে It এটি কাজ করে কারণ এন> 1 এর জন্য এটি প্রথম পুনরাবৃত্তিতে ছাঁটাই হয় এবং এন = 1 এর জন্য লুপের জন্য পিছন ফিরে আসে, এভাবে এন = 3 এর উত্তর সরবরাহ করে যা এখনও 2 (ভাগ্য খারাপ যে না)।

— NofP

2

জাভাস্ক্রিপ্ট (ES6), 144 বাইট

n=>eval("s=o=j=0;for(i=p=1;n;d>p&&(n--,s+=p))for(p++,d=2;p%d++;);while(b=Math.log2(++j)+1|0,i<=s)for(x=0;x++<b&i<=s;)o+=i++>s-p&&j<<x&1<<b?1:0")

Ungolfed

n=>{
    s=o=j=0;
    for(i=p=1;n;d>p&&(n--,s+=p))
        for(p++,d=2;p%d++;);
    while(b=Math.log2(++j)+1|0,i<=s)
        for(x=0;x++<b&i<=s;)
            o+=i++>s-p&&j<<x&1<<b?1:0
    return o
}

পরীক্ষার মামলা

কোড স্নিপেট দেখান

f=
n=>eval("s=o=j=0;for(i=p=1;n;d>p&&(n--,s+=p))for(p++,d=2;p%d++;);while(b=Math.log2(++j)+1|0,i<=s)for(x=0;x++<b&i<=s;)o+=i++>s-p&&j<<x&1<<b?1:0")

;[1,3,6,36,60,160,260,350].forEach(t=>console.log(t,"->",f(t)))

.as-console-wrapper{max-height:100%!important}

স্নিপেট প্রসারিত করুন

— জাস্টিন মেরিনার
সূত্র

2

পাইথন 2 , 114 বাইট

n=input();k=m=1;p=[0];s=''
exec's+=bin(k)[2:];p+=m%k*[k+p[-1]];m*=k*k;k+=1;'*n*n*2
print s[p[n-1]:p[n]].count('1')

এটি অনলাইন চেষ্টা করুন!

— ডেনিস
সূত্র

2

জাভাস্ক্রিপ্ট (ES6), 138 132 123 বাইট

N=>(n=k=1,g=s=>N?g((P=n=>n%--x?P(n):x<2)(x=++n)?s[n]?s.slice(--N&&n,n/!N):s+(n--,k++).toString(2):s):s.split`1`.length-1)``

পরীক্ষার মামলা

এটি অনলাইন চেষ্টা করুন!

ডেমো

এনবি: কেবলমাত্র 'নিরাপদ' পরীক্ষার কেসগুলি এখানে অন্তর্ভুক্ত করা হয়েছে (ক্রোম, ফায়ারফক্স এবং এজ এ কাজ করার গ্যারান্টিযুক্ত)। অন্যগুলি পাস করার জন্য আপনাকে নিজের ইঞ্জিনের কল স্ট্যাকের আকার বাড়াতে হতে পারে।

কোড স্নিপেট দেখান

let f =

N=>(n=k=1,g=s=>N?g((P=n=>n%--x?P(n):x<2)(x=++n)?s[n]?s.slice(--N&&n,n/!N):s+(n--,k++).toString(2):s):s.split`1`.length-1)``

console.log(f(1))   // 2
console.log(f(3))   // 2
console.log(f(6))   // 8
console.log(f(36))  // 78
console.log(f(60))  // 165

স্নিপেট প্রসারিত করুন

ফর্ম্যাট এবং মন্তব্য

N => (                            // given N = index of the expected term
  n = k = 1,                      // n = current prime, k = current natural number
  g = s =>                        // g = recursive function taking s = binary string
    N ?                           //   if we haven't reached the correct chunk yet:
      g(                          //     do a recursive call to g():
        (P = n =>                 //       P() returns: true for prime
          n % --x ? P(n) : x < 2) //                    false for composite
        (x = ++n) ?               //       increment n; if n is prime:
          s[n] ?                  //         if s is long enough:
            s.slice(--N && n,     //           either remove this chunk (if N > 0)
                    n / !N)       //           or truncate it to the correct size (if N = 0)
          :                       //         else:
            s + (n--, k++)        //           append the next natural number to s
                .toString(2)      //           in binary format
        :                         //       else:
          s                       //         just look for the next prime
      )                           //     end of recursive call
    :                             //   else:
      s.split`1`.length - 1       //     return the number of 1's in the last chunk
)``                               // initial call to g() with an empty string

— Arnauld
সূত্র

1

পার্ল 6 , 67 বাইট

{(1..*).map(|*.base(2).comb).rotor(grep *.is-prime,2..*)[$_-1].sum}

এটা পরীক্ষা করো

সম্প্রসারিত:

{  # bare block lambda with implicit parameter ｢$_｣

  (

    1 .. *                # Range of all numbers starting with 1

  ).map(

    # WhateverCode lambda
    |                     # Slip each of these values into the outer list individually
      *                   # this is the parameter
      .base(2)            # convert base
      .comb               # split into digits


  ).rotor(                # split into chunks

    grep *.is-prime, 2..* # the sequence of prime numbers


  )[ $_ - 1]              # index into it using 1 based indexing

  .sum                    # find the sum
}

— ব্র্যাড গিলবার্ট বি 2 গিলস
সূত্র

1

পাইথন 2 , 143 139 133 বাইট

-4 বাইটস @ এরিকআউটগলফারকে ধন্যবাদ

s='1';i=x=1
exec"s=s[i:];i+=1\nwhile~-all(i%x for x in range(2,i)):i+=1\nexec's+=bin(x)[2:];x+=1;'*i;"*input()
print s[:i].count('1')

এটি অনলাইন চেষ্টা করুন!

— ovs
সূত্র

অসম্পূর্ণ পরীক্ষার জোতা সরিয়ে -২ বাইট by অন্য কিছু -2 কিছু জিনিস পুনরায় সাজিয়ে।

— এরিক দ্য আউটগল্ফার

@ এরিকথ আউটগলফার অনেক ধন্যবাদ আমি এখনও আমার পুরানো পরীক্ষাগুলি যোগ করতে সক্ষম হয়েছি।

— ovs

1

জে, 48 বাইট

([:+/-@{:{.+/{.[:}:[:(#:@[,])/1+[:i.1++/)@:p:@i.

ব্যাখ্যা

(                                                         )@:p:@i.  the first n primes, passed to...
       -@{: {.                    ...                               take "nth prime" elements from the tail of...
               +/                                                   sum the first n primes and...
                  {.                                                take that number of elements from...
                     [: }:                                          all but the last element of...   <----------------<
                                          1 + [: i. 1 + +/          sum first n primes, add 1 (so we have enough      |
                                                                    for case n=1) -- make that many natural numbers   |
                           [: (#:@[ , ])/                           reduce them by turning into lists of binary       |
                                                                    digits and catting, however the rightmost number  |
                                                                    won't get reduced, hence the need for ------------^
([: +/                                                              and sum those digits

এটি অনলাইন চেষ্টা করুন!

— দুর্ভাগ্যআনয়নকারী
সূত্র

30 টি বাইট কী ( /.) ব্যবহার করে :_1({]+//.$$&;<@#:@#\)[:#~p:@i.

— মাইল

সুপার চালাক ধন্যবাদ মাইল

— জোনাহ

0

জাভাস্ক্রিপ্ট 1+ + সাবস্ট্রিট, 135 বাইট

for(n=prompt(s=P=0),i=n*n*n*8;--i;)s=i.toString(2)+s;for(p=1;n;e=j?s:--n?P+=p:s.substr(P,p))for(j=p++;p%j--;);eval([].join.call(e,'+'))

— l4m2
সূত্র

"4" বলতে কী বোঝ? আপনি কি সংস্করণ সম্পর্কে অনিশ্চিত? দেহে আপনি কী বোঝাতে চাইছেন তা প্রসারিত করা এই পোস্টটিকে আরও ভাল করতে সহায়তা করবে।

— FryAmTheEggman

আমি জানি জেএস 5 আসেনি তখন এটি চলে, তবে ঠিক কখনই তা নিশ্চিত নয়

— l4m2

বাইনারি প্রাইম-অংশগুলি

আমরা একটি ক্রম অনুসন্ধান করছি

সিকোয়েন্স

চ্যালেঞ্জ

ইনপুট

পরীক্ষার মামলা

কাস্তে , 8 বাইট

ব্যাখ্যা

জেলি , 12 বাইট

কিভাবে এটা কাজ করে

05 এ বি 1 ই , 12 বাইট

কোড

ব্যাখ্যা

গণিত, 71 বাইট

জেলি , 21 বাইট

জেলি , 16 বাইট

ব্যাখ্যা

আর , 206 200 বাইট

জাভাস্ক্রিপ্ট (ES6), 144 বাইট

Ungolfed

পরীক্ষার মামলা

পাইথন 2 , 114 বাইট

জাভাস্ক্রিপ্ট (ES6), 138 132 123 বাইট

পরীক্ষার মামলা

ডেমো

ফর্ম্যাট এবং মন্তব্য

পার্ল 6 , 67 বাইট

সম্প্রসারিত:

পাইথন 2 , 143 139 133 বাইট

জে, 48 বাইট

ব্যাখ্যা

জাভাস্ক্রিপ্ট 1+ + সাবস্ট্রিট, 135 বাইট