Yellowstone sequence: Difference between revisions

Content added Content deleted

Inline

@@ Line 196: / Line 196: @@
 <pre>1 2 3 4 9 8 15 14 5 6 25 12 35 16 7 10 21 20 27 22 39 11 13 33 26 45 28 51 32 17</pre>
+=={{header|AutoHotkey}}==
+<lang AutoHotkey>A := [], in_seq := []
+loop 30 {
+    n := A_Index
+    if n <=3
+        A[n] := n,    in_seq[n] := true
+    else while true
+    {
+        s := A_Index
+        if !in_seq[s] && relatively_prime(s, A[n-1]) && !relatively_prime(s, A[n-2])
+        {
+            A[n] := s
+            in_seq[s] := true
+            break
+        }
+    }
+}
+for i, v in A
+    result .= v ","
+MsgBox % result := "[" Trim(result, ",") "]"
+return
+;--------------------------------------
+relatively_prime(a, b){
+    return (GCD(a, b) = 1)
+}
+;--------------------------------------
+GCD(a, b) {
+    while b
+        b := Mod(a | 0x0, a := b)
+    return a
+}</lang>
+{{out}}
+<pre>[1,2,3,4,9,8,15,14,5,6,25,12,35,16,7,10,21,20,27,22,39,11,13,33,26,45,28,51,32,17]</pre>
 =={{header|C}}==