login
A346592
Numbers k such that A006577(k^2) sets a new record.
4
2, 3, 5, 7, 10, 11, 22, 35, 45, 49, 51, 77, 123, 143, 269, 419, 429, 765, 1011, 1395, 1989, 2165, 3335, 3827, 7179, 9005, 18010, 36020, 41453, 82906, 92099, 184198, 268509, 272767, 469347, 563273, 1126546, 1224197, 2172433, 2303171, 2825329, 5650658, 9295309, 10741519
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