พื้นหลัง

จำนวนnสามารถอธิบายเป็นB-rough ถ้าทั้งหมดของปัจจัยที่สำคัญของการอย่างเคร่งครัดเกินnB

ความท้าทาย

รับจำนวนเต็มบวกสองตัวBและkเอาท์พุทk Bตัวเลขผ่านครั้งแรก

ตัวอย่าง

อนุญาตf(B, k)เป็นฟังก์ชั่นที่ส่งกลับชุดที่มี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 ไบต์

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

ลองออนไลน์!

ขอบคุณH.PWizสำหรับ -9 ไบต์!

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 ไบต์

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

ลองออนไลน์!

ขอบคุณshooqieสำหรับการบันทึก 5 ไบต์

$B * k$

ทางเลือกอื่น:

Python 2 , 78 ไบต์

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

ลองออนไลน์!

วิธีนี้ไม่ได้แก้ปัญหาข้างต้น และมีประสิทธิภาพมากขึ้น

เยลลี่ขนาด 7 ไบต์

1Æf>Ạɗ#

ลองออนไลน์!

Perl 6 , 35 32 ไบต์

-3 ไบต์ต้องขอบคุณอย่างมาก!

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

ลองออนไลน์!

บล็อกโค้ดแบบไม่ระบุชื่อที่ใช้จำนวนเต็มสองจำนวนและส่งคืนรายการจำนวนเต็ม

คำอธิบาย

{                              }  # 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 ไบต์

↑foΛ>⁰pN

ลองออนไลน์!

$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

ถ่าน 33 ไบต์

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

ลองออนไลน์! การเชื่อมโยงคือการใช้รหัสเวอร์ชันอย่างละเอียด คำอธิบาย:

ＮθＮη

การป้อนข้อมูลและBk

≔⁰ζ

ตั้งค่าzเป็น 0

Ｗ‹Ｌυη«

ทำซ้ำจนกว่าเราจะมีkค่า

≦⊕ζ

zการเพิ่มขึ้น

¿¬Φθ∧κ¬﹪ζ⊕κ

หารzด้วยตัวเลขทั้งหมดจาก2ถึงBและดูว่าส่วนที่เหลือเป็นศูนย์หรือไม่

⊞υζ»

ถ้าไม่เช่นนั้นให้กดzรายการว่างที่กำหนดไว้ล่วงหน้า

Ｉυ

ส่งรายการไปยังสตริงและส่งออกโดยปริยาย

JavaScript (ES6), 68 ไบต์

(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

ลองออนไลน์!

แสดงความคิดเห็น

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[]

เยลลี่ 10 ไบต์

1µg³!¤Ịµ⁴#

ลองออนไลน์!

มันทำงานอย่างไร

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 ไบต์

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)]:[]

ลองออนไลน์!

APL (NARS), 52 ตัวอักษร, 104 ไบต์

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

ด้านบนดูเหมือนว่าแถวหลังจาก 'r ← afw; i' มีชื่อ 1 2 3 ทดสอบ:

  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 ไบต์

∞ʒÒ¹›P}²£

ลองออนไลน์หรือตรวจสอบกรณีทดสอบทั้งหมดตรวจสอบกรณีทดสอบทั้งหมด

คำอธิบาย:

∞          # 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