A350277 Indices of records in A349325.
1, 3, 6, 7, 14, 19, 54, 73, 129, 313, 353, 470, 5838, 10855, 14473, 26283, 60220, 60221, 155897, 445089, 1098406, 1168014, 1169865, 4143030, 8546945, 10964814, 11395926, 31273927, 590633697, 1117772702, 1240568869, 1240568870, 2845683047, 2963752572, 2963752573
Offset: 1
Links
Programs
-
Mathematica
A349325[n_]:=Module[{h=1,c=n,prevc=n},While[c>1,If[OddQ[c],c=(3c+1)/2;If[prevc
-
Python
def A349325(n): prevc = c = n h = 1 while c > 1: if c % 2: c = (3*c+1) // 2 if prevc < n and c > n: h += 1 else: c //= 2 if prevc > n and c < n: h += 1 prevc = c return h rec, rec_idx = -1, [] for i in range(1, 10000): r = A349325(i) if r > rec: rec = r rec_idx.append(i) print(rec_idx)
Extensions
a(24)-a(35) from Chai Wah Wu, Jan 04 2022