Data commit

Task/Blum-integer/J/blum-integer-1.j

@@ -0,0 +1,17 @@
+isblum=: {{
+  ab=. q: y
+  if. 2= #ab do.
+    if. </ab do.
+      *./3=4|ab
+    else. 0 end.
+  else. 0 end.
+}}"0
+
+blumseq=: {{
+  r=. (#~ isblum) }.i.b=. 1e4
+  while. y>#r do.
+    r=. r, (#~ isblum) b+i.1e4
+    b=. b+1e4
+  end.
+  y{.r
+}}

Task/Blum-integer/J/blum-integer-2.j

@@ -0,0 +1,8 @@
+   5 10$blumseq 50
+ 21  33  57  69  77  93 129 133 141 161
+177 201 209 213 217 237 249 253 301 309
+321 329 341 381 393 413 417 437 453 469
+473 489 497 501 517 537 553 573 581 589
+597 633 649 669 681 713 717 721 737 749
+   {: blumseq 26828
+524273

Task/Blum-integer/J/blum-integer-3.j

@@ -0,0 +1,16 @@
+   B=: blumseq 4e5
+   {:1e5{.B
+2075217
+   {:2e5{.B
+4275533
+   {:3e5{.B
+6521629
+   {:4e5{.B
+8802377
+   {:B
+8802377
+   (~.,. 4e3 %~ #/.~) 10|B
+1 25.0012
+3 25.0167
+7 24.9973
+9 24.9847