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,2

Links

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

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 *)

Crossrefs

Cf. A344005, A346598, A346599, A346601.

Sequence in context: A120760 A245449 A337647 * A217376 A050160 A230769

Adjacent sequences: A346597 A346598 A346599 * A346601 A346602 A346603

Keyword

nonn

Author

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

Extensions

More terms from Chai Wah Wu, Jul 29 2021

Status

approved