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};
a346592(limit)={msteps=0; for(k=1, limit, my(m=a6577(k^2)); if(m>msteps, print1(k, ", "); msteps=m))};
a346592(1500000)
CROSSREFS
KEYWORD
nonn
AUTHOR
Hugo Pfoertner, Jul 28 2021
STATUS
approved