A350044 Loop starting at 187 in the Collatz-like map {x -> 3x+5 if x is odd, x/2 otherwise}.
187, 566, 283, 854, 427, 1286, 643, 1934, 967, 2906, 1453, 4364, 2182, 1091, 3278, 1639, 4922, 2461, 7388, 3694, 1847, 5546, 2773, 8324, 4162, 2081, 6248, 3124, 1562, 781, 2348, 1174, 587, 1766, 883, 2654, 1327, 3986, 1993, 5984, 2992, 1496, 748, 374, 187, 566, 283, 854
Offset: 1
Examples
A181762(187) = 3*(187) + 5 = 566; then A181762(566) = 566/2 = 283.
Links
- J. C. Lagarias, The set of rational cycles for the 3x+1 problem, Acta Arithmetica, LVI (1990), pp. 33-53.
Programs
-
Mathematica
a[1] = 187; a[n_] := a[n] = If[OddQ[a[n - 1]], 3*a[n - 1] + 5, a[n - 1]/2]; Array[a, 50] (* Amiram Eldar, Dec 25 2021 *)
-
Python
N, alst, f = 48, [187], lambda x: x//2 if x%2 == 0 else 3*x + 5 [alst.append(f(alst[-1])) for _ in range(N)] print(alst) # Michael S. Branicky, Dec 28 2021
Formula
a(n) = A181762(a(n-1)) for n > 1, with a(1) = 187.
Comments