Initial data commit

2023-07-01 11:58:00 -04:00 · 2023-07-01 11:58:00 -04:00 · f23f22d71c
commit f23f22d71c
parent 72d218235f
199087 changed files with 3378941 additions and 0 deletions
--- a/Task/Sailors-coconuts-and-a-monkey-problem/Mathematica/sailors-coconuts-and-a-monkey-problem.math
+++ b/Task/Sailors-coconuts-and-a-monkey-problem/Mathematica/sailors-coconuts-and-a-monkey-problem.math
@ -0,0 +1,24 @@
+ClearAll[SequenceOk]
+SequenceOk[n_, k_] := Module[{m = n, q, r, valid = True},
+  Do[
+   {q, r} = QuotientRemainder[m, k];
+   If[r != 1,
+    valid = False;
+    Break[];
+    ];
+   m -= q + 1
+   ,
+   {k}
+   ];
+  If[Mod[m, k] != 0,
+   valid = False
+   ];
+  valid
+  ]
+i = 1;
+While[! SequenceOk[i, 5], i++]
+i
+
+i = 1;
+While[! SequenceOk[i, 6], i++]
+i