Hofstadter Figure-Figure sequences: Difference between revisions

Line 2,037:
If l <= 40 Then
integers.Remove(r(l))
integers.Remove(s(l))
Else
integers.Remove(s(l))
End If
integers.Remove(s(l))
Next
WScript.StdOut.Write "Test for the first 1000 integers: "
Anonymous user