OFFSET
1,1
PROG
(PARI) a6577(n0)={my(n=n0, k=0); while(n>1, k++; n=if(n%2, 3*n+1, n/2)); k};
a346782(limit)={my(msteps=0); for(k=0, limit, my(m=a6577(k!)); if(m>msteps, print1(k, ", "); msteps=m))};
a346782(215)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Aug 04 2021
STATUS
approved