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