A346600 Indices of records in A346599.

1, 2, 3, 4, 5, 9, 13, 33, 37, 61, 73, 141, 157, 193, 277, 313, 397, 421, 457, 541, 613, 661, 673, 733, 757, 877, 997, 1093, 1153, 1201, 1213, 1237, 1321, 1381, 1453, 1621, 1657, 1753, 1873, 1933, 1993, 2017, 2137, 2341, 2473, 2557, 2593, 2797, 2857, 2917, 3061

Offset: 1

Author

Robert Dougherty-Bliss and N. J. A. Sloane, Jul 28 2021

Keywords

• nonn

Links

• Chai Wah Wu, Table of n, a(n) for n = 1..195

Crossrefs

Cf. A344005, A346598, A346599, A346601.

Programs

Mathematica

max=0;Monitor[Do[g=(k=1;n=1;While[m=1;While[!Divisible[m(m+1),n],m++];m!=s,n++];n);If[g>max,Print@s;max=g],{s,3000}],s] (* Giorgos Kalogeropoulos, Jul 29 2021 *)

Extensions

More terms from Chai Wah Wu, Jul 29 2021