Sequence: smallest number greater than previous term with exactly n divisors: Difference between revisions

Content added Content deleted

Inline

@@ Line 1,205: / Line 1,205: @@
 </lang>
+=={{header|Quackery}}==
+<code>factors</code> is defined at [[Factors of an integer#Quackery]].
+<lang Quackery>  [ stack ]                is terms (   --> s )
+  [ temp put
+    [] terms put
+1
+    [ dip 1+
+      over factors size
+      over = if
+        [ over
+          terms take
+          swap join
+          terms put
++ ]
+      terms share size
+      temp share = until ]
+    terms take
+    temp release
+    dip 2drop ]            is task  ( n --> [ )
+task echo</lang>
+{{out}}
+<pre>[ 1 2 4 6 16 18 64 66 100 112 1024 1035 4096 4288 4624 ]</pre>
 =={{header|R}}==