login
A346600
Indices of records in A346599.
3
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
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
KEYWORD
nonn
AUTHOR
EXTENSIONS
More terms from Chai Wah Wu, Jul 29 2021
STATUS
approved