login
A346783
a(n) = A006577(A346782(n)), records in A070974.
2
1, 8, 10, 20, 41, 44, 86, 147, 210, 264, 426, 500, 559, 633, 795, 950, 1069, 1171, 1218, 1327, 1330, 1342, 1402, 1551, 1672, 1974, 2274, 2528, 2725, 2730, 2911, 2928, 2994, 3117, 3315, 3443, 3495, 3524, 4061, 4347, 4651, 4703, 4818, 5049, 5322, 5447, 5449, 5756
OFFSET
1,2
PROG
(PARI) a6577(n0)={my(n=n0, k=0); while(n>1, k++; n=if(n%2, 3*n+1, n/2)); k};
a346783(limit)={my(msteps=0); for(k=0, limit, my(m=a6577(k!)); if(m>msteps, print1(m, ", "); msteps=m))};
a346783(150)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Aug 04 2021
STATUS
approved