Closed bitRAKE closed 3 years ago
Here is my wolfram language to code translate the gamma records to use the base 2 log, versus the natural log used on the source website. It appears to match your results.
cl[1] = 1; cl[n_Integer?EvenQ] := n/2 cl[n_Integer?OddQ] := 3 n + 1 cstep[n_Integer] := Block[{i = n, j = 0},While[i > 1, i = cl[i]; j++]; j] (* Gamma Records from: http://www.ericr.nl/wondrous/comprecs.html *) rcl[n_Integer] := Log[2, n]/cstep[n] rcl /@ {3, 7, 9, 27, 230631, 626331, 837799, 1723519, 3732423, 6649279, 8400511, 63728127, 3743559068799, 100759293214567, 104899295810901231, 268360655214719480367, 6852539645233079741799,7219136416377236271195} // N // TableForm
...and the corresponding output:
0.2264232143887366 0.17545968262860026 0.16683815797064802 0.04283682434381503 0.04030594325486682 0.03790662551329782 0.03755008518442006 0.03726065786389508 0.03663033736098728 0.034133684462263406 0.033579628698532135 0.02731867958281392 0.026964201198996306 0.025559289140508146 0.025085085450851512 0.025041599656442655 0.024547251696241463 0.024465066124928492
Here is my wolfram language to code translate the gamma records to use the base 2 log, versus the natural log used on the source website. It appears to match your results.
...and the corresponding output: