Hintergrund

Eine Zahl nkann als B-grob bezeichnet werden, wenn alle Primfaktoren von nstreng überschreiten B.

Die Herausforderung

Geben Sie bei zwei positiven ganzen Zahlen Bund kdie ersten k Brauen Zahlen aus.

Beispiele

Sei f(B, k)eine Funktion, die die Menge mit den ersten k Bgroben Zahlen zurückgibt.

> 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 Bytes

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

Probieren Sie es online!

Danke an H.PWiz für -9 Bytes!

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 Bytes

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

Probieren Sie es online!

Danke an shooqie für das Speichern von 5 Bytes.

Dies setzt voraus, dass die k-te B-raue Zahl niemals $B * k$ überschreitet , was ich nicht beweisen kann, aber als ziemlich sichere Annahme erscheint (und ich kann keine Gegenbeispiele finden).

Alternative Lösung:

Python 2 , 78 Bytes

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

Probieren Sie es online!

Diese Lösung ergibt nicht die obige Lösung. Und ist viel effizienter.

Gelee , 7 Bytes

1Æf>Ạɗ#

Probieren Sie es online!

Perl 6 , 35 32 Bytes

-3 Bytes dank nwellnof!

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

Probieren Sie es online!

Ein anonymer Codeblock, der zwei Ganzzahlen akzeptiert und eine Liste von Ganzzahlen zurückgibt.

Erläuterung

{                              }  # 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

Schale , 9 8 Bytes

↑foΛ>⁰pN

Probieren Sie es online!

Nimmt $B$ als erstes und $k$ als zweiter Eingang.

↑         -- 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

Holzkohle , 33 Bytes

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

Probieren Sie es online! Link ist eine ausführliche Version des Codes. Erläuterung:

ＮθＮη

Eingabe Bund k.

≔⁰ζ

Auf z0 setzen.

Ｗ‹Ｌυη«

Wiederholen, bis wir kWerte haben.

≦⊕ζ

Inkrementieren z.

¿¬Φθ∧κ¬﹪ζ⊕κ

Teilen Sie zdurch alle Zahlen von 2bis Bund prüfen Sie, ob der Rest Null ist.

⊞υζ»

Wenn nicht, drücken Sie zauf die vordefinierte leere Liste.

Ｉυ

Wandeln Sie die Liste in eine Zeichenfolge um und geben Sie sie implizit aus.

JavaScript (ES6), 68 Byte

Übernimmt die Eingabe als (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

Probieren Sie es online!

Kommentiert

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

Gelee , 10 Bytes

1µg³!¤Ịµ⁴#

Probieren Sie es online!

Wie es funktioniert

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

Probieren Sie es online!

APL (NARS), 52 Zeichen, 104 Byte

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

Oben scheinen die Zeilen nach 'r ← afw; i' die Namen 1 2 3 zu haben; 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 Bytes

∞ʒÒ¹›P}²£

Probieren Sie es online aus oder überprüfen Sie alle Testfälle .

Erläuterung:

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