OFFSET
1,1
COMMENTS
EXAMPLE
MATHEMATICA
m=1; L={2}; k=2; While[k < 10000, k++; tr = k (k + 1)/2; t = SelectFirst[ Reverse@ Divisors[2 tr], # != k && Mod[tr, # (# + 1)/2] == 0 &]; If[t > m, AppendTo[L, k]; m = t]]; L (* Giovanni Resta, Sep 05 2019 *)
PROG
(PARI) T(n) = {return((n * (n+1)) / 2)}
Tk(n, k) = {for (i = k, n - 1, if ((T(n)%T(i))==0, return(i+1)))}
Tn(n) = {phwm = 1; for (i = 2, n, nhwm = Tk(i, phwm); if(nhwm > phwm, phwm = nhwm; print1(i, ", ")))}
Tn(5000000)
CROSSREFS
KEYWORD
nonn
AUTHOR
Torlach Rush, Jul 30 2019
EXTENSIONS
More terms from Giovanni Resta, Sep 05 2019
STATUS
approved