Lý lịch

Một số ncó thể được mô tả là thông Bqua nếu tất cả các yếu tố chính nvượt quá B.

Các thách thức

Cho hai số nguyên dương Bvà k, xuất ra các số đầu tiên k B.

Ví dụ

Hãy f(B, k)là một hàm trả về tập hợp chứa các số đầu tiên k B.

> f(1, 10)
1, 2, 3, 4, 5, 6, 7, 8, 9, 10

> f(2, 5)
1, 3, 5, 7, 9

> f(10, 14)
1, 11, 13, 17, 19, 23, 29, 31, 37, 41, 43, 47, 53, 59

Haskell , 53 44 byte

b%k=take k[n|n<-[1..],all((>0).mod n)[2..b]]

Hãy thử trực tuyến!

Cảm ơn H.PWiz cho -9 byte!

b%k=                       -- given inputs b and k
 take k                    -- take the first k elements from 
  [n|n<-[1..]              -- the infinite list of all n > 0
   ,all            [2..b]] -- where all numbers from 2 to b (inclusive)
      ((>0).mod n)         -- do not divide n.

Python 3 , 80 , 75 byte

lambda B,k:[i for i in range(1,-~B*k)if all(i%j for j in range(2,B+1))][:k]

Hãy thử trực tuyến!

Nhờ vào shooqie vì đã tiết kiệm 5 byte.

Điều này giả định rằng số B-thô thứ k sẽ không bao giờ vượt quá $B * k$ , mà tôi không biết cách chứng minh, nhưng có vẻ như là một giả định khá an toàn (và tôi không thể tìm thấy bất kỳ mẫu đối lập nào).

Giải pháp thay thế:

Python 2 , 78 byte

B,k=input()
i=1
while k:
 if all(i%j for j in range(2,B+1)):print i;k-=1
 i+=1

Hãy thử trực tuyến!

Giải pháp này không làm cho giải pháp trên. Và hiệu quả hơn nhiều.

Thạch , 7 byte

1Æf>Ạɗ#

Hãy thử trực tuyến!

Perl 6 , 35 32 byte

-3 byte nhờ nwellnof!

{grep(*%all(2..$^b),1..*)[^$^k]}

Hãy thử trực tuyến!

Một khối mã ẩn danh có hai số nguyên và trả về một danh sách các số nguyên.

Giải trình

{                              }  # Anonymous code block
 grep(             ,1..*)        # Filter from the positive integers
      *              # Is the number
       %             # Not divisible by
        all(      )  # All of the numbers
            2..$^b   # From 2 to b
                         [^$^k]   # And take the first k numbers

Husk , 9 8 byte

↑foΛ>⁰pN

Hãy thử trực tuyến!

$B$$k$

↑         -- take the first k elements 
       N  -- from the natural numbers
 f        -- filtered by
  o   p   -- the prime factors
   Λ>⁰    -- are all larger than the first input

Than , 33 byte

ＮθＮη≔⁰ζＷ‹Ｌυη«≦⊕ζ¿¬Φθ∧κ¬﹪ζ⊕κ⊞υζ»Ｉυ

Hãy thử trực tuyến! Liên kết là phiên bản dài dòng của mã. Giải trình:

ＮθＮη

Đầu vào Bvà k.

≔⁰ζ

Đặt zthành 0.

Ｗ‹Ｌυη«

Lặp lại cho đến khi chúng ta có kgiá trị.

≦⊕ζ

Tăng z.

¿¬Φθ∧κ¬﹪ζ⊕κ

Chia zcho tất cả các số từ 2đến Bvà xem nếu có phần còn lại bằng không.

⊞υζ»

Nếu không thì đẩy zvào danh sách trống được xác định trước.

Ｉυ

Truyền danh sách thành chuỗi và ngầm xuất nó.

JavaScript (ES6), 68 byte

Đưa đầu vào là (b)(k).

b=>k=>(o=[],n=1,g=d=>(d<2?o.push(n)==k:n%d&&g(d-1))||g(b,n++))(b)&&o

Hãy thử trực tuyến!

Đã bình luận

b => k => (             // input = b and k
  o = [],               // o[] = output array
  n = 1,                // n = value to test
  g = d => (            // g = recursive function, taking the divisor d
    d < 2 ?             // if d = 1:
      o.push(n) == k    //   push n into o[] and test whether o[] contains k elements
    :                   // else:
      n % d && g(d - 1) //   if d is not a divisor of n, do a recursive call with d - 1
    ) ||                // if the final result of g() is falsy,
    g(b, n++)           // do a recursive call with d = b and n + 1
)(b)                    // initial call to g() with d = b
&& o                    // return o[]

Thạch , 10 byte

1µg³!¤Ịµ⁴#

Hãy thử trực tuyến!

Làm thế nào nó hoạt động

1µg³!¤Ịµ⁴#    Dyadic main link. Left = B, right = k
       µ⁴#    Take first k numbers satisfying...
  g             GCD with
   ³!¤          B factorial
      Ị         is insignificant (abs(x) <= 1)?
1µ            ... starting from 1.

JavaScript (Node.js) , 68 byte

b=>g=(k,i=1,j=b)=>k?j>1?i%j?g(k,i,j-1):g(k,i+1):[i,...g(k-1,i+1)]:[]

Hãy thử trực tuyến!

APL (NARS), 52 ký tự, 104 byte

r←a f w;i
r←,i←1⋄→3
i+←1⋄→3×⍳∨/a≥πi⋄r←r,i
→2×⍳w>↑⍴r

Ở trên có vẻ như các hàng sau 'r ← afw; i' có tên 1 2 3; test:

  o←⎕fmt
  o 1 h 2
┌2───┐
│ 1 2│
└~───┘
  o 1 h 1
┌1─┐
│ 1│
└~─┘
  o 10 h 14
┌14───────────────────────────────────────┐
│ 1 11 13 17 19 23 29 31 37 41 43 47 53 59│
└~────────────────────────────────────────┘

05AB1E , 9 byte

∞ʒÒ¹›P}²£

Hãy thử trực tuyến hoặc xác minh tất cả các trường hợp thử nghiệm .

Giải trình:

∞          # Infinite list starting at 1: [1,...]
 ʒ    }    # Filter it by:
  Ò        #  Get all prime factors of the current number
   ¹›      #  Check for each if they are larger than the first input
     P     #  And check if it's truthy for all of them
       ²£  # Leave only the leading amount of items equal to the second input