OFFSET
1,5
COMMENTS
LINKS
Hugo Pfoertner, Table of n, a(n) for n = 1..10000
MATHEMATICA
Join[{1}, Table[Select[Divisors[(n(n+1))/2], OddQ[#]&&#<n&]//Max, {n, 2, 80}]] (* Harvey P. Dale, Jul 16 2024 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
N. J. A. Sloane, Feb 21 2020
STATUS
approved